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FACILITY: MOUNT Utility Structure Level 2 

i ABSTRACT: 


This routine performs all of the mechanics of mounting a disk, 
given as input the parsed and partially validated command Line. 


i ENVIRONMENT: 


STARLET operating system, including privileged system services 
and internal exec routines. 


AUTHOR: Andrew C. Goldstein, CREATION DATE: 17-Oct-1977 17:41 
i MODIFIED BY: 


v04-002 HH0057 Hai Huang 12-Sep-1984 
Cle oor DEVSV_MNT bit sleet with UCBSL_VCB on error 
at 


v04-001 HHO05S6 Hai Huang 11-Sep-1984 
Return SS$_ VOLINY status when appropriate to Facilitate 


VAX-11 BLliss-32 V4.0-742 
DISKSVMSMASTER: CMOUNT. SRC JMOUDK2. B32" ad 
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1b$en-1984 04:19:59 VAKeTT aLisec32 v4 0-742 


X-11 
KSVM TER: (MOUNT. SRCIMOUDK2.832: oa (1) 


: $ 0035 } } retry on volume invalid errors. ; 
: 60 o 60 1 v03-030 CDS0011 Christian P. Saether 29-Aug-1984 3 
; 6) 061 1 Only set up QU0 CACHE for RVN 1. Ignore quedtrty : 
; ° pOes ! flag for other Ethan RVN 1. : 
> 64 0064 1: V03=029 HHO0GS Hai H 10-Aug-1984 : 
: o? B80? : } Take out the sakuns my shared foreign hunts. ° 
: 67 0067 1 V03-028 ACG0438 Andrew C. Goldstein Bo =1984 11:4 ; 
: + Bees ! Initialize cache flusher ACB's in the V K : ; 
:; 70 $090 1 / V03-027 HH0041 Hai Huang - 451984 ; 
; q) B00) } Remove REQUIRE 'LIBDS$:CV $L1B.0BJ JMOUNTHSG.B% as : 
(=F 0073 1 v03-026 HHO039 Hai Huan 20-Jul-1984 ; 
: re Bote ! Return SS$_NOHOMEBLK if Index file header checks fail. ; 
: 76 0076 1 | vO3-025 LMPO275 Mark Pilan 12-Jul-1984 21:38 ; 
Te iy 0077 1! Initialize the act info in the “ORB to be a null descriptor ; 
.: 0078 1! list rather than an empty queue. This avoids the overhead : 
:; 79 0079 1! of sOen ong and unlocking the ACL mutex, only to find out ; 
: HY Boss : that the ACL was empty. : 
ea 0082 1 | v03-024 CDS0010 Christian D. Saether 12-yul-1984 ; 
; .% 0083 1! Clean up handling of quodirty flag and rebuilding $ 
; 0084 1 decisions thereof. Don't output REBLDREQD informational : 
: HF Boe? : until after the volume is mounted. : 
: 87 0087 1: v03-023 cDs0009 Christian D. Saether 11-Jul-1984 ; 
; SS 0088 1! Don't call check_cluster sanity until after we've ; 
; «689 0089 1! determined whether disk Ts write-locked. ; 
; 0090 1! Don't rundown locks in ae handler until ; 
; wi 0091 1! after scb has been rewritt 3 
: 3 4 : Revive use of SCBSL_ STATUS” ond SCBSL_STATUS2 flags. : 
: 9 0094 1 | v03-022 HHO031 Hai Huang 03-Jul-1984 ; 
: 33 949 : set up FCBSL _LOCKBASTS correctly when creating a volume : 
: 97 0097 1: ‘ ; 
; 0098 1! v03-021 HHO029 Hai Huang 29-Jun-1984 $ 
; 299 0099 1 } Ouput informational message about reduced cache when F 
: 1 9190 ! appropriate. : 
: 192 BiG 1 i v03-020 CdDS0008 Christian D. Saether 17-May-1984 ; 
: 10 \} : | Remove reference to VC_NOALLOC. That flag is no : 
: ie ie : longer used by the file system. : 
: 1 106 1 v03-019 cDs0007 Christian D. Saether 26-Apr-1984 F 
: 107 199 : : Bump FCBSW_REFCNT for index file fcb. ° : 
: 109 109 1 i v03-018 LMP0221 Pilan 28-Mar-1984 9:57 : 
: 19 gH ' GRasd pho Ucest _ownvic™ te ‘ORBLE MOUNER and UCB$W_VPROT to : 
: 611 12 1! F 
; 118 118 1! v03-017 ROW0326 alph © . Weber 20-MAR-1984 3 
3. («116 0114 1! Add setup of veBse. OUNTT IME for later testing by mount : 


C 

Make test for xqp here and take out mount interlock lock 
for duration of NT_DISK2 if using xqp. 

Temporarily disable write back caching and quota caching 
when running with Xap. as well as rebuild until mount 
can figure out if other mounters are present. 


v03-003 LMP0036 L. Mark Pilant, 6-Aug-1982 15:30 
Add support for ACL's. 
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11g O18 } verification. : 
s; 3 oH 1! V03-016 HHO004 Hai eg) 11-Mar-1984 ; 
: 118 118 1! Fix truncation errors introduced by cluster-wide ‘ 
; 1% 3884 ; mount support. : 
: 121 61 : ae v03-015 ACG0400 Andrew C. Goldstein, 10-Mar-1984 1:29 ; 
; : ¢ gt ¢ : } Turn quota cache back on : 
5 156 0154 1! v03-014 yugoo2 Hai Huang 01-Feb-1984 ; 
3 149 0125 1! Add job-wide mount support, i.e. always deallocate ' 
3 } § 0 $ } mount List entries to paged-pool in condition handler. : 
: 128 128 1! v03-013 CDS0006 Christian D. Saether 18-Oct-1983 : 
; : 2 ad 4 : Move STORE_CONTEXT call to before quota file activation. : 
: 131 0131 1: v03-012 cDS0005 Christian D. Saether 1-Sep-1983 ; 
. ¢ 01 ¢ 1! Only make duplicate volume set name test for first : 
3; 15 0135 1! volume mounted. Clear UCB pointer in RVT in kernel ; 
3 13 Bite : mode handler on error paths. : 
: 136 0136 1 v03-011 CDS0004 Christian D. Saether | 30-Aug-1983 ; 
; i Bie : Use different local for rvt ucb scan. : 
: 139 0139 1! v03-010 cDs0003 Christian D. Saether 3-Aug-1983 ; 
; 140 0140 1! Cluster consistency checks added. ; 
3: 6141 0141 1! Remove the earlier crude mount serialization now : 
3 1*¢ O148 1! that MOUNT_VOLUME does it based on device. : 
; (14 0145 1! Delay increment of device refcount in UCB so that ° 
> «(144 0144 1! it will not be left incorrectly biased on certain F 
3 «6145 0145 1! error paths. : 
: 146 0146 1! 3 
3 (147 0147 1! v03-009 CDS0002 Christian D. Saether 3-Aug-1983 F 
3 Pe Bie8 ! Remove reference to RVTSL_RVX (obsolete). : 
: 150 0150 1: v03-008 TCM0001 Trudy C. Matthews 21-Jun-1983 ; 
: 13 bi : Increment device refcount in UCB on mount. ; 
: 13 EX 1! V03-007 DMW4044 DMWalp 7-Jun-1983 : 
; 138 B18 ' Remove (S)LOG_ENTRY : 
: 156 0156 1: V03-006 $TJ3095 Steven T. Jettreys. 28-Apr-1983 : 
3 + 44 pat : Propagate ERASE and NOHIGHWATER throughout the volume set. : 
: 139 $185 1 v03-005 $TJ50311 Steven T. Jeffreys, 11-Feb-1983 ; 
3 169 oi6t ! : Make all uses of PHYS_NAME indexed by DEVICE_INDEX. : 
: 16 168 v03-004 cDS0001 Christian D. Saether 6-Jan-1983 ; 
'¢ O14 1 : 
: 1 165 1! 3 
: 1 196 1! ; 
, § ‘or 3.2 ; 
: 1 198 1! 3 
ae 18 1! : 
2 2 170 1! FY 
ee ', a8 3 
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v03-002 $TJ0301 Ste Jeffre 18-May-1982 
Add support for SRCUNCOAB qualit oF. 
v03-001 STJ0243 Steven T. Jeffreys, 03-Apr-1982 
= Use common 1/0 routines 
= Remove code Fhet ben device allocation access mode. 
The device will be weet 3 gear og aced in VMOUNT. 
- Ensure that we back out a ty’ SCB in case the 
specified ACP cannot be Bass 
v02-020 5130195 Steven T. Jeffreys, 02-Feb-1982 
~ age storage so that different modules can share 
the statically allocated buffers. 
v02-019 STJ0179 Steven Jeffre _ ent Tee 
had support for the vcBSy _MOUNTV f “bit 
v02-018 ACG0246 Andrew C. Goldstein, 46-Jan-1982 14:27 
Add /OVER:LOCK support, add NOCACHE bit to vcB; 
Remove primary exception handler code. 
v02-017 ACG0230 Andrew C. Goldetetn, 29-Dec-1981 19:21 
Add file expiration support 
V02-016 ACG0234 Andrew C. Goldstein, 4=-Dec-1981 17:03 
Limit index file EOF to allocated space 
v02-015 STJ0045 Steven T. doftreyas 31-May-1981 
Initialize a BLISS local variable to prevent H KERNEL mode 
access violation in MAKE_DISK eROUNT for /FOREIGN mounts. 
V02-014 $TJ0040 Steven T. Jeffreys, 21-May-1981 
Copy volume serial number from homeblock to VCB. 
v02-013 ACG35282 Andrew C. Goldstein, 23-Jan-1981 14:13 
Clean up SCB after ACP startup failure 
V02-012 ACG0169 Andrew C. Goldstein, 18-Apr-1980 13:48 
Bug check on internal errors 
v02-011 ACG0167 Andrew C. Goldstein, 18-Apr-1980 13:38 


Previous revision history moved to MOUNT.REV 


RL SRLIORARY #1 18,152": 
*SRC$:MOUDEF .B52°; 


ROUTINE 
MOUN: _DISK2 : NOVALUE, main disk mounting routine 
LER condition handler for main mount code 
kernel mode mount routine 
set volume data cess attributes 


K_MOUNT, 
Set E BATACRE TE : NOVALUE, 
kernel mode conditicn handler 


KERREL_HANDLER : NOVALUE; 
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12-8 08- 1 3be 04:13:32 DISKSVMSMAS TER: CMOUNT. SRCJMOUDK2.B32:4> (2) i 
1 !¢ 
1! 
: } Own storage for this module. 
1 i- 
1 
1 LITERAL 
: WINDOW_SIZE = 30*6; ! maximum index file window size 
: GLOBAL ' 
1 i Declare a one block buffer to be used by MOUDK1, MOUDK2, and BINDVL. 
1 ! Previously, each module declared the buffer as OwN storage. Since 
1 ' the buffer is ay +4 written to before it is used, there is no need 
: to zero it before hand. 
BUFFER : BBLOCK (512), ! buffer for disk blocks 
1 i Likewise, MOUDK1 and MOUDK2 make use of PROTO_VCB, PROTO_FCB 
1 i PROTO_WCB and VOLUME_UIC. In addition, MOUTAP also uses PROTO_VCB. 
! Each module is responsible for zeroing the blocks before using them. 
1 PROTO_VCB : BBLOCK CVCBSC_LENGTH], ! prototype VCB 
1 PROTO_FCB : BBLOCK CFCBSC_LENGTHI, ! roseszee index file FCB 
1 PROTO_WCB : BBLOCK CWCBSC_LENGTH+WINDOW_SIZEJ, 
1 ! prototype index file window 
1 VOLUME UIC : LONG, ! owner UIC of volume : 
; CACHE_STATUS; ! status of block cache allocation 
1 
1 OWN 
1 IO_STATUS : VECTOR C4, WORD); ! 1/0 status block. 
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1e8eb=19be 2:45:26 DISKSYMGMASTERSCMOUNT -SACIMOUDK2.83200%° (3$ 
GLOBAL ROUTINE MOUNT_DISK2 : NOVALUE = 
+ 
FUNCTIONAL DESCRIPTION: 
This routine performs all of the mechanics of mounting a structure 


level 2 disk, given as input the parsed and partially validated: 
command Line. 


i 

i 

i 

i 

i 

i 

i 

' CALLING SEQUENCE: 

MOUNT_DISK () 

! INPUT PARAMETERS: 

NONE 

! IMPLICIT INPUTS: 

! MOUNT parser data base 

! CHANNEL: channel number for 1/0 
‘ HOME BLOCK: buffer containing volume home block 
} HOMEBLOCK_LBN: LBN of home block 
! OUTPUT PARAMETERS: 

: NONE 

i 

i 

i 

i 

i 

i 

i 

i 

i 

ie 


IMPLICIT OUTPUTS: 
NONE 

ROUTINE VALUE: 
NONE 


SIDE EFFECTS: 
volume mounted: VCB, etc., created, ACP started 


BEGIN 

BUILTIN 
ROT, 

FFS, 

FFC 

TESTBITSC; 


LINKAGE 
L.MAP_POINTER = JSB : 
GLOBAL (COUNT = 6, LBN = 7, MAP_POINTER = 8); 


LABEL 
IDX_SCAN; ! index file bitmap scan loop 


GLOBAL REGISTER 
COUNT . ' number of blocks in storage map 
° ! current LBN in use 
8 : REF BBLOCK; ! pointer to scan map pointers 


LBN 
MAP_POINTER 
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PHY E 
STRUCT_NAME 
DRIVE COUNT 
WIN 


LOCK 

HOMEBLOCK L LBN, 
HEADER_LBN, 
CURRENT _RVN, 
CURRENT-VCB 
CTLSGL_PHD 
ACPSGW_EXTCACHE 
ACPSGW_F IDCACHE 
ACP$GW_QUOCACHE 
ACPSGW_EXTLIMIT 
ACP$GB_WRI TBACK 
ACP$GB_WINDOW 


ACPS$GW_SYSACC 


EXTERNAL ROUTINE 


: REF 6BLOCK, 


: BBLOCK (4), 


oe ef o8 ee ef ee ef of #6 oo ee 


: BBLOCK, 


1b-S0p-1 1384 9}: 12:39 VA s-32_V 
~Sep- 4 726 DI 


UIC of this process 
' address of process privilege mask 
random pointer 
uti count 
y status word 
end of file on index file 
number of free ee on volume 
lLongword of bit 
start point of Ole scan 
end point of bit scan 


X=1 
SK$ 


D ' device lock value block context 
V i volume lock value block context 
' count of volume locks 
i Xap flag is used 
i command option flags 
i cleanup action thags 

i device characteristics 

i status return oh some routines 
° i yolume Label oir ina in command 

i E 

i 

i 

i 

i 

i 

i 

i 

i 

i 

i 

i 

i 

i 

i 


~—— 


index into PHYS vector 
descriptor of physical device name 
descriptor of volume set name 

number of drives per device 

command specified window + 
command specified LRU Limit 

command specified default file extend 
size of extent cache to allocate 
size of file ID cache to allocate 
size of quota file cache to allocate 
Limit of volume space to cache 
butter containing volume home block 
LBN of home bloc 

LBN oF current file header 


AOOOQO CAA Ce 
=sa44—-—-4 O<<c< OO 
oooo°o ommm On 
ADBDBDD ZOOM KK 


: REF BBLOCK, i address of VCB being built 
: REF BBLOCK “ADDRESSING SRODE (ABSOLUTE), 


: WORD ADDRESSING Robe *CABSOLU 
: WORD ADDRESSING _RODE  CABSDLUTE) 
: WORD ADDRESSING ASOE (hs 
: WORD ADDRESSING RODE “Chas 


> Fa to process header 
for extent cache 

space. abe file ID cache 
pecey i. quota file cache — 
space to ie in extent cache 


: BYTE ADDRESSING RODE. (ABSOLUTE), 


ri cen eee Cache enable flag 


: BYTE ADDRESSING os CABSOLUT 


fei nao Size for /SYSTEM 


: WORD ADDRESSING MODE {as SOLU 


TE); 
' default LRU tinti for /SYSTEM 


CHECK_CLUSTER_SANITY : NOVALUE, ! check cluster mount consistency 


18 4.0=742 
vMgh TER: [MOUNT. SRCIMOUDK2.B324 
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' 


74 9 GET VOLUME _LOCK, take out volume Lock 

75 9 GET VOLUME _LOCK_NAME, ! generate volume lock name 
76 9 GET UIC ' get yic of process 

77 CHECK _HEADER2, i verify file header 

78 CHECKSUM ! compute block checksum 

79 READ BLOCK, i read a block from the disk 
80 WRITE BLOCK, ! write a block to the disk 
8) INI? _FCB2 ! initialize FCB 

Be TURN-WINDOW2, i initialize window 

8 LEFT ONE ! Leftmost one bit of value 
84 GET_MAP_POINTER : L_MAP_POINTER, ! get value of file map pointer 
# BINB_VOCUME; ! update volume set List 

87 


ENABLE MOUNT_HANDLER; 


CURRENT_VCB = PROTO VCB; ! pointer used by CHECK_HEADER2 
CHSFILL~(0, VCBSC_LENGTH, PROTO_VCB); ! init to zero ; 
CACHE _STATUS = 1; ! init status of block cache allocation 


! For maximum safety. we do as much setup work in user mode as possible. We 
: read all of the disk blocks (index file and storage map headers and the | 

! storage map) in user mode so that the program is abortable in case something 
hangs. Prototype control blocks are built in local storage and are copied 
' 
! 
' 


pefelelelelelelelelelelelelelelelelelelelelaleololo) 
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into the system poet by the kernel mode routine. 


0928 : Get the process UIC and the volume owner UIC. Make the privilege checks 
ret +4 2 ! for overriding volume protection and options requiring operator privilege. 
PROCESS_UIC = KERNEL_CALL (GET_UIC); 
4 093 PRIVILEGE _MASK = CTLSGL_PHDCPHD$Q_PRIVMSK); 
405 0934 VOLUME UIT = 0; 
0935 IF .MOONT OPTIONSCOPT IS _FILES11) 
407 0936 THEN VOLUPME_UIC = .HOME_BLOCKCHM2$L_VOLOWNER); 
408 0937 
409 0938 F 


( 
-MOUNT_OPTIONSCOPT_OVR_PROJ 
AND NOT (.PRIVILEGE MASKCPRVSV_VOLPROJ 
OR .VOLOME_UIC EQL~0 
: OR .VOLUME-UIC EQL .PROCESS_UIC) 


_ NOT .PRIVILEGE_MASKCPRV$V_OPERJ 


oO 
za 


( 
-MOUNT_OPTIONSCOP 
ILEG 


rag 
- NOT .PRIV E_MASK CPRV$V_GRPNAM] 
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; 431 0960 

; 4 ¢ 961 OR (¢ 

s &@ 308 Fd wiin NSCOPT_SYSTEM) 

> 434 96 NOT .PRIVILEGE “PARK. CPRVS$V_SYSNAM) 

> 435 0964 

; 436 0965 

; tz 8308 THEN ERR_EXIT (SS$_NOPRIV); 

3; 439 0968 IF .MOUNT OPTIONSCOPT FOREIGN] 

3 4 Bae? THEN VOLUME UIC = .PROCESS_UIC; 

3 tt8 B37) ! Unless the file= option was used to specify and acp for this 
> «44 af6 i yolume always use the xqp. 

: 444 097 i 

3 645 0974 

; 446 0975 IF NOT .MOUNT_OPTIONS COPT_FILEACP) 

: 447 0976 2 THEN 

3 rr oere STORED_CONTEXT CXQP) = 1; 

; 450 0979 ! Establish the volume set name, if any. It comes from the /BIND switch, 
> 451 0980 ! or from the home block. If both, they must match. 
3 452 0981 

: 4535 098 

: 454 098 IF .MOUNT_OPTIONSCOPT_BINDJ 

s 655 0984 THEN 

; 456 0985 BEGIN 

: 457 0986 3 IF .HOME_BLOCKCHM2$W_RVN] NEQ 0 

; 458 0987 3 THEN 

3; 459 0988 4 BEGIN 

; 460 0989 4 IF CHSNEQ (. steve! NAMECO], .STRUCT_NAME(1] 

> 461 0990 4 STRUCNAME, HOME_BLOCKCHM2$T_STRUCNAME], ° °) 
> 462 0991 4 THEN ERR_ EXIT tROUNS VOLINSET); 

; 463 O36 4 END 

: 464 0993 4 

; 465 0994 3 

>; 466 0995 4 BEGIN 

3; 467 0996 4 CHSCOPY (.STRUCT_NAMECO], .STRUCT_NAME(1], ‘ 
> 468 0997 4 TRUCNAME, HOME -BLOCKCHM2ST _STRUCNAMED) : 
: 469 0998 4 MOUNT_OPTIONSCOPT_DO BIND) = 13 

: 470 0999 3 END; 

; 471 1000 ; END 

; 47 1001 

3; 47 1008 ELS 

; 474 1007 BEGIN 

3 475 1 IF .HOME_BLOCKCHM2$W_RVN) NEQ 0 

: 47 1005 meg 

: 67 1006 4 

; 478 1007 4 oe eitr “NAREES] = = HM2$S Stipe: 

: 479 1008 4 STRUCTINAMELT] = HOME BLOCK HM2$t _STPUCNAME); 
; 480 1903 END; 

: 481 1010 END; 

; 48 1011 

; 48 3 ' Default the cache parameters to the system defaults. 
: 484 101 ! 

; 485 1014 

; 4686 4 IF .EXT_CACHE EQL 0 

; 487 1016 THEN EXT_CACHE = .ACP$GW_EXTCACHE; 
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NT OPTONSCOPT NOEXT. CJ 
tACHE = 0; 


IF .MOU 
489 THEN EXT_C 
490 
491 IF .FID CACHE EQL 0 
49 THEN FIB HE = ,ACPS$GWK_FIDCACHE; 
49 IF .MOUNT OPTIONSCOPT_NOFID_CJ 
494 OR :FID CACHE EQL 0 
$3 THEN FIB_CACHE = 1; 
497 IF .QUO CACHE EQL 0 
498 THEN QUO CACHE = .ACP$GW_QUOCACHE; 
499 IF .MOUNT OPT TonstOPT _NodUO_¢J 
500 THEN QUO_CACHE = 0; 

IF .EXT_LIMIT EQL 


ooooo 


First fill in the prototype VCB from the data in the home block. 


PROTO_VCBCVCB$W_TRANS] = 1; ! transaction count 
PROTO-VCBLVCBSW-MCOUNT) = 1; i mount count 


PROTO_VCBLVCB$V_ERASE] = .HOME_BLOCKCHM2$V_ERASE); 
PROTO_VCBLVCB$V-NOHIGHWATER] =~. HOME _BLOCKCHM2$V_NOHIGHWATER]; 


IF .MOUNT_OPTIONSCOPT_GROUP) 
THEN PROTO_VCBCLVCB$V_GROUP) = 1; 
IF .MOUNT_OPTIONSCOPT_SYSTEM) 
THEN PROTO_VCBLVCBSV_SYSTEM] = 1; 


BEEBE EES FAWN A NIWA PPPOPPONNPONN 


' 
Copy volume serial number from home block to VCB. 


PROTO_VCB CVCBS$L_SERIALNUM] = .HOME_BLOCK CHM2SL_SERIALNUM); 


IF .MOUNT_OPTIONSCOPT IS_FILES11) 
AND NOT ({MOUNT_OPTIONSCOPT_FOREIGN] AND .MOUNT_OPTIONSCOPT_LABEL)) 


' volume label, blank filled 
CHSMOVE (HM2$S_VOLNAME, HOME_BLOCKCHM2$T_VOLNAME], PROTO_VCBCVCBST_VOLNAME J) 


CHSCOPY (.LABEL_STRINGCO], .LABEL_STRINGC1), °° 
VCB$S_VOLNAME, PROTO_VCBCVCBST_VOLNAME)5; 


1F NOT .MOUNT_OPTIONSCOPT_FOREIGNI 
BEGIN 


ELS 
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AAA MAGA GUI 
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065 !' relative volume number 
37 066 IF .HOME_BLOCKCHM2$W_RVN] GEaY 256 
38 06 OR .HOME-BLOCKCHMoSW-SETCOUNT) GEQU 256 
39 8 THEN ERR-EXIT (SS$_FILESTRUCT); 
40 068 PROTO VCBLVCBSW_RVAJ = .HOME BLOCKCHAZSU_RVNI; 
rt 670 CURRERT_RVN = .ROME_BLOCKCHM2$W_RVNI; 
re O7e PROTO_VCBCVCB$L_HOMELBN] = .HOMEBLOCK LEN: ' home block LBN 
44 07 PROTO-VCBLVCBSL—HOME 2LBN) = HOME BLOCKCHM2$L_ALHOMELBN); 
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$ 45 1074 
3 ete ie: ; IF_.PROTO_VCBCVCBSL_HOMELBN] EQL .PROTO_VCBLVCBSL_HOME 2L8N] 
s 547 1976 THEN 
; 548 1077 4 BEGIN 
; 549 1078 4 PROTO_VCBCVCB$V_HOMBLKBAD) = 1; 
; 550 1079 4 ERR. MESSAGE E (MOON$_HOMBLKBAD) ; 
s $51 1080 ND; 
; 226 1081 
eS 10e¢ file bitma _LBN 
: 554 108 PROTO_VCBCVCB$L_IBMAPLBN) = .HOME BLOCK CARDS i: IBMAPLBN 
: 555 1084 PROTO_VCBLVCBSL_IXHDR2LBNJ = .HOME -BLOCKEWRG C ALTIDXLBNI; 
; 228 1085 ye cluster factor 
: 7 1086 PROTO_VCBCVCB$W_CLUSTER] = .HOME _BLotK HM su elu STER]; 
s $38 1087 ' device blocking. pager 
; 559 1088 4 PROTO_VCBCVCB$B_BLOCKFACT] = (.DEVICE_CHARCDIB$B_SECTORS 
: 560 1089 4 . -DEVICE-CHARCDIB$B_ TRACKS 
; 561 1090 4 .DEVICE-CHARCDIBSW_CYLINDERSJ) 
; 288 1091 / -DEVICE. ~CHARCDIBSL_MAXBLOCK); 
: a4 '“default window size 
> 564 109 PROTO VCBCVCBSB WINDOW) = WORE -BLOCKCHN2$8 B_WINDOW); 
: 565 1094 .PROTO VCBCVCB$B_WINDOW) E 
; 566 1095 THEN PROT HEBLVCESE uth WIN NOW) - _ 
: 567 1096 IF MOUNT nycenvcese OPT_SYSTEM] 
: 568 1097 THEN PROTO VCB vCase a NOW) = .ACP$GB_WINDOW; 
; 569 1098 I T_OPT TIONS OPT_WINDOW) 
: 570 1099 THEN PROTO. VCBCVCB$B_QINDOW) = - WINDOW; 
; 571 1100 dirs $e°Ck LRU Limit 
3 278 1101 PROTO VCBCVCB$B_LRU LIn} , .HOME_BLOCKCHM2$B_LRU_LIMJ; 
: 57 1196 -MOUNT_OPT] stant TEM 
: 574 110 Hien PROTO, vce Bt VCose LIF : .ACP$GW_SYSACC; 
: 575 1104 F UNT_O6 TIONS opt RULIRD 
; 576 1105 THEN PROTO vee pvcese CR Cru kind, : - ACCESSED; 
; 577 1106 IF -ROUNT OPT! OPT NOCAC 
; 578 1107 . STOR RED CONTEXT toe leeeeTEMPeees 
; 579 1108 THEN PROTO -VCBIVCB$B_LRU_LIM) = 0; 
: 580 1109 ault file extend 
: 581 1110 PROTO_VCBCVCB$W_EXTEND] = Hone € pLockchnesu, EXTEND]; 
3 286 1111 IF -PROTO Mee Cesy EXTEND) 
: 58 We THEN P PROTO V 5: 
: 584 111 .MOUN tt geste REXTENSION 
: 585 1114 THEN PROTO_VCB veBSW. EXTEND - EXTENSION 
; 586 1115 index file bitma gcse 
: 587 1116 PROTO yet case ioe PSIZE) = .HOME EpLoce HM2$W_IBMAPSIZE); 
3 288 1117 IF .HOM O iamaPsizéde 
: 58 1118 THEN ERRTEXIT (SS sPriesTRUCT) 
; 590 1119 o- ximum number of files 
; 591 1120 PROTO pycotyces MAXFILES) = .HOME socket HM2$L_MAXFILESJ; 
3 236 1121 f ARS MAXFILES) GTR 12 
: 23 11 g THEN” on XI GS TLESTR uet): 
; 29e i} ? PROTO_VCBCVCBSV SExTE FID) = 1; 
; 596 1125 PROTO Rone bi Ore TAR SFILES] = .HOM BLOCECHASU RESFILES); 
; 597 11 § 7 Am2Sw rresrate ES] G FRG 255 
: 98 i THEN” ERR_EXIT (SS$_FILESTRUC 3.° 
: 600 11 § IF .MOUNT_OPTIONSCOPT wrnay) 
3; 601 1130 OR .STORED_CONTEXT (CxaP leeeeTEMPereee 
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PROTO-VCBLVCBS$V-NOALLOC) = 1 

ERR_MESSAGE (MOONS_IDXHDRBAD); 

HEADER_LBN = .PROTO_VCBCVCBSL_IXHDR2LBN); 
STATUS-= READ_BLOCK™(.HEADER_CBN, BUFFER); 


END; 
IF NOT .STATUS THEN ERR_EXIT (.STATUS); 
IF NOT CHECK_HEADER2 (BOFFER, UPLIT WORD (1, 1, 0)) 


ERR_EXIT (SSS$_NOHOMEBLK) ; 


66 THEN PROTO_VCBCVCBSV_WRITETHRU] = 1; 

604 IF .MOUNT wth sy afte's be 

£08 THEN PROTO_VCBLVCB$V_ROCACHE) = 1; 

60 ' Quota file is always on RVN 1. 

608 i — 

609 

19 IF .CURRENT_RVN LEQU 1 

\¢ ns PROTO_VCBCVCB$W_QUOSIZE] = .QUO_CACHE 

13 QUO_CACHE = 0; 

16 CHSMOVE staness RE TAININ. HOME _BLOCK wees RE TAI MAIN PROTO_VCBCVCBS$Q_RETAINMIN]); 
Vv CHSMOVE (HM2$S_RETAINMAX, HOME _BLOCKCHM2$Q_RETAINMAX], PROTO_VCBLVCB$Q_RETAINMAX]); 
19 ! Now read the index file header, verify it, and initialize the prototype 
$y } index file FCB. If the primary header is no good, try for the secondary. 
} ! 

$¢ HEADER_LBN = .PROTO_VCBCVCBS$L_IBMAPLBN] + .PROTO_VCBCVCBS$B_IBMAPSIZEJ; 
se STATUS = READ_BLOCK™ (.HEADER_CBN BUFFER) j 
? enn »STATUS OR NOT CHECK_READER (BUFFER, UPLIT WORD (1, 1, 0)) 

$6 BEGIN 

28 USER_STATUS = 1; 
, PROTO_VCBLVCBSV IDXHDRBAD] = 1; 
1 


Ww 
DONO NEW OO OBVNOU SW -O0an 


Build the prototype index file window. 


B); 
PROTO_WCBCLWCB$W_SIZE] = WCBSC_LENGTH + WINDOW SIZE; 
PROTO-WCBLWCB$V-READ) = 1; 

TURN_QINDOW2 (PROTO_WCB, BUFFER, 3, 1, .PROTO_VCBC[VCBSW_RVN)); 


Now read the peerage map file header and find the starting LBN of the 
storage map Note that the storege map size is compured from the volume 
size and cluster factor, since the storage map file is rounded up to the 
next cluster boundary. 


CO C8 SW NNN NNN NN NA AAAAAAAAA MMIII PEPE PELE PW 
WR 9 OOO UE WIN 0 OC DNOAU EWN 9 ODNOA UE WAR  O ORBNOUES WN 0 OONOU SW 


CHSF ILL if WCBSC_LENGTH, PROTO WCB); 
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STATUS = READ BLOCK (.PROTO_V 
IF NOT CHEC 


TU E VC 
NOT .STATUS OR NOT K"HE 
BEGIN 

The shared file system cannot tolerate failure to read the storage 


control block, because that is where the volume label used for 
locking is stored. 


BMAPLBN) + .PROTO YCBLVCESS .JOMAPSIZES + 1, BUFFER); 
FFER, UPLIT WORD 2, 2, 0)) 


If NOALLOC could be believed clusterwide such that we were guaranteed 
it was safe to gresere without doing any locking, failure to get 
SCBST_VOLOCKNAME could be tolerated. However, being able to issue 

an unlock control function makes that difficult. 


IF .STORED_CONTEXT CxQP) 
id «STATUS EQL SS$_VOLINV 
evseerelt (SS$_VOLINV) 
ERR_EXIT (MOUNS_MAPHDRBAD) ; 
ERR_MESSAGE (MOUNS_MAPHDRBAD) ; 
PROTO_VCBLVCBSV_NOALLOC = 1; 


ELSE 


BEGIN 
P_POINTER = BUFFER + .BUFFERCFH2$B_MPOFFSETJ*2; 

GETMAP_POINTER (); 

COUNT ="((.DEVICE CHARCDIBSL_MAXBLOCK] + .PROTO. VCBLVCB$W_CLUSTER] - 1) 

en / PROTY, TCBLVCBSH_ CLUSTER] + 4095) / 4096; 


COUNT GTRU 
THEN ERR_EXIT (SS$_FILESTRUCT); 


PROTO_VCBCVCBSL_SBMAPLBN] = .LBN + 1; 
PROTO_VCBCVCB$B_SBMAPSIZE) = .COUNT; 


Now read the storage control block and check the various dirty bits, and 
issue messages if the volume was not properly dismounted. Then set the | 
appropriate bits and rewrite the storage control block. If the write fails, 
write-lock the volume. 


STATUS = READ BLOCK (.LBN, BUFFER); 
cn" «STATUS 


!' See comment above on failure to read sbm header. 
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IF _ .STATUS EQL SS$_VOLINV 
THEN 


eu seeRRAEM!T (SS$_VOLINV) 
ERR_EXIT (MOUNS_BITMAPERR, 0, .STATUS); 
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3 rg 1245 4 

: ate ! <3 ¢ Fog FER aCa ty OPO IAT 

: 719 1248 BEGIN 

; 720 1249 ERR abe (MOUNS_BITMAPINV); 

> el 1250 PROTO_VCB VCBSV_NOALLOC) = 1; 

: He 135) en: 

; 4 ¢ : 38 : Get volume lock and establish volume lock name. 

: 726 1255 4 

3 y ! 28 : GET_VOLUME_LOCK_NAME (); 

3 129 38 4 VOLOCK_COUNT = 0; 

; 1260 4 IF STORED_CONTEXT CxaP3 

: 7 4 1 64 5 BEGIN 

3 o34 63 : IF NOT (STATUS = KERNEL_CALL (GET_VOLUME_LOCK)) 

; 136 ie 3 ERR_EXIT (.STATUS); 

F 38 67 3 VOLOCK_COUNT = .VOLOCK_COUNT - 1; ! Don't count ourself. 
: eet 1269 : M4 ari CDOC_NOTFIRST_"INT] NEQ .VOL_CTX CVC_NOTFIRST_MNTJ 
; r 1371 2 ERR_EXIT (MOUNS_VOLALRMNT) ; 

: 7264 1398 4 END; 

3; «745 1274 4 

; os \$?? : CHSMOVE (8, BUFFER CSCBSQ_MOUNTTIME], PROTO_VCB CVCBS$Q_MOUNTTIME]); 
: 748 1277 4 IF NOT .PROTO_VCBCVCBS$V NOALLOC 

: P38 : A ¢ AND | -MOUNT OPTIONSCOPT ORI TE 

: 751 1280 3 BEGIN 

: 3g 1281 

: ay Ieee : fen” -DEV_CTX COC_NOTFIRST_MNTJ ! i.e., first 

: 755 158% & BEGIN 

; 756 1285 6 H VE (12, PROTO_VCB CVCBST_VOLCKNAM], yeres CSCBST_VOLOCKNAME J) ; 
: aye 1986 6 ida (TIMADR = BUFFER CSCBSQ_MOUNTT IME ); 

: 759 1 . 

; roe } 59 caren CSCBSW_WRITECNT] NEQ .VOLOCK_COUNT 

: 76 1291 

; 76 1 38 ! If the count of volume Locks does not match the count in the 

> 764 129 ' storage control block, someone that once mounted this volume 

; oe? . Be did not dismount it. 

: r69 1 38 i Set the count straight now, but also note in status2 which caches 

> 768 129 i need rebuilding by ORing the STATUS flags into it. 

3; 769 1298 ! The STATUS2 flags are only cleared upon successful completion 

: 770 1299 ! of a rebuild, so we will continue to attempt a rebuild until 

5 48} : 39 } the volume is actually rebuilt. 
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BEErER CSCBSL_STATUS2] = et 4443 CSCBSL 

oe CSCBSW_WRITECNT) = m verock COUNTS 
A aren CSCBSV_MAPALLOC2] OR .BUFFER CSCBS$V_FILALLOC2] 

CLEANUP_FLAGS CCLF_REBUILD) = 1; 
IF .BUFFER CSCBS$V_QUODIRTY2] 

AND .CURRENT_RVN LEQU 

BEGIN 

if NOT «MOUNT_OPTIONS COPT_NOQUOTA) 

CLEANUP_FLAGS CCLF_REBUILDQUO) = 1; 


LSE 
BUFFER CSCBS$V_QUODIRTY2) = 0; 
BUFFER CSCBSW_WRITECNT] = .BUFFER CSCBS$W_WRITECNT) + 1; 
Note which caches we are enabling 7 setting the corresponding flag 
in the SCB. These may already be set if 
the disk has been mounted elsewhere. in the cluster with the 
same cache enabled. 
IF .EXT_CACHE NEQ 0 
BUFFER CSCBSV_MAPALLOC] = 1; 
IF_.FID CACHE NEQ 1 ! 1 is no caching 
BUFFER CSCBSV_FILALLOC) = 1; 
Note that we don't know yet whether quotas will be enabled until 
we actually try to turn them on in MAKE_DISK_MOUNT. So far a 


we know is that we intend to turn them on if’a quota.sys tile is 
really there. 


IF (. Pho a CACHE NEQ 0 AND . HORT N RVN ,geu 1) 
D NOT .MOUNT_OPTIONS COPT_NOQUOTA 


H i 
BUFFER CSCBSV_QUODIRTY) = 1; 


This read/write of the SCB is using the volume lock to 

a alize with the DISMOUNT subfunction (ACPCONTRO ne ree 

lowers the writecnt. It does NOT correctly serialize w 

REBUILD he Ay which only holds the volume blocking lock tOek a VOLUME). 
enou 

state yet to do it (volume sets are the problem gh 

The correct solution here is property to not reunite tse SCB at all 

in this leg of code (in mount), but rather have the five system do 


V4.0=742 
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is as pers of the MOUNT function Q10 issued from START_ACP (called 

from t e MAKE_DISK MOUNT routine). It can then respect the volume 
blocking lock (LOCR.VOL function) and interlock correctly with 
the bitmap rebuild, which does need to rewrite it. The LOCK_VOL function 
should also make the lock count vs writecnt test and OR the STATUS flags 
into the STATUS2 flags if the counts mismatch, and rewrite the SC 
(in an interlocked fashion) for the bitmap rebuilder to look at and 
correctly determine whether a rebuild is really necessary when it 
pepual ty executes. 
This still leaves the problem of what block can mount read and attempt 
to write back to determine whether the volume is write-locked or not. 
ALL storage bitmap and index file bitmap pyocks are really off Limits 
because t ey are read and written by the bitmap rebuilder under the 
volume blocking lock (LOCK_VOL). The home block, maybe? 


CHECKSUM (BUFFER); | 
STATUS = WRITE_BLOCK (.LBN, BUFFER); 


I 
! Bump storage bitmap sequence number in the volume lock value block 
! to invalidate potential copies in file system caches elsewhere. 


TINE oe ot at ot oe tt et et et en 
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VOL_CTX CVC_SBMSEQNUM] = .VOL_CTX CVC_SBMSEQNUM] + 1; 


PLR oe cece cacece Goce.cece 9090969020009 00G9 09 Co ceca GEOR OE GD0RCe 


ee ee cet ce ce ce ee ce a ce ce ce ee ce ce ce ce ce ce ee ce ee ce ce ce ce ce cD ce ce a ce ee ce ee cD ee ee ce ce cD ce ee ee ee ed ee ed ed 
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2 c ati 

5 CHSMOVE (8, BUFFER CSCB$Q_MOUNTTIME), 

5 PROTO_VCB CVCB$Q_MOUNTTIME]) 
5 ELSE 

6 38 

6 39 IF_.STATUS EQL SS$_VOLINV 

6 39 THE 

39 RR_EXIT (SS$_VOLINV); 
64 39 IF .STATUS EQL SS$_WRITLCK 
39 THEN ERR_MESSAGE (MOUNS_WRITELOCK) 

866 39 ELSE ERR_MESSAGE (MOUNS WRITESCB, 0, .STATUS); 
867 39 MOUNT_OPTIONSCOPT_WRITEJ = 0; 
868 39 END; 
869 39 
a0 44 CLEANUP_FLAGSCCLF_CLEANSCB] = 1; 

7 40 END; 

7 40 

74 40 

75 40 ! If this is not the first mount for this device, make sure 
a78 40 ' essential mount parameters are consistent with other mounts 
77 rey ' elsewhere. 
878 40 ! For either the first mount of a cluster available device, or 
879 408 ! for mounts of local disks, the routine is not called. 

880 409 ! 
881 410 
Bee oi] IF .DEV_CTX CDOC_NOTFIRST_MNT) 

84 413 CHECK_CLUSTER_SANITY(); 

85 414 

86 415 
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; 887 1318 4! Seen the index file bj taep from the end backwards looking for the highest 
; 888 1417 4! file number. Compute its index file VBN and check against the index file 

; HH 1918 4 ! EOF. If the EOF is short set the EOF delta high so that the first create 
: 890 1419 4 | will update the index file header. 

; 891 1420 4! If this is not the initial mount of the volume, simply copy the index 

; 89 1421 4 ! file eof from the value block. 

; «89 14 ¢ 4! 

; 894 14 4 

> 895 1424 4 IF .VOL_CTX CVC_NOTFIRST_MNTJ 
; 896 1425 4 THEN 

; 897 1426 4 PROTO_FCB CFCBSL_EFBLK] = .VOL_CTX CVC_IDXFILEOF] | 
; 898 1427 4 ELSE 

; 899 1428 4 IDX_SCAN: | 
; 900 1429 2 BEGIN 
: 901 1430 DECR J FROM .PROTO_VCBCVCBSB_IBMAPSIZE] - 1 TO 0 
; 90 1431 5 dO 

; 90 1036 6 BEGIN 

; 904 1433 6 MAP BUFFER : VECTOR; 
> 905 1434 6 STATUS = READ BLOCK (.PROTO_VCBCVCBS$L_IBMAPLBN] + .J, BUFFER); 

; 906 1435 6 IF NOT .STATUS 

; 907 1436 § THEN 

; 908 1437 BEGIN 
: 909 1438 7 IF .STATUS EQL SS$_VOLINV 

; 910 1439 7 
; 911 1440 7 ERR_EXIT (SS$_VOLINV) 

; aig 1441 7 

3; 91 1ee6 7 ERR ape (MOUNS ik es 0, .STATUS); | 
: 914 1443 7 PROTO _VCBLVCBSV_NOALLOC) = 1; 
: 915 1444 7 X EOF = 0; 
: 916 1445 7 LEAVE IDX_SCAN; | 
s 97 1446 6 END; 

; 918 1447 6 | 
; 919 1448 6 DECR I FROM 127 TO 0 
3 350 1449 6 
> 921 1450 7 BEGIN | 
s Vee 1451 7 IF .BUFFERC.1] NEQ 0 

3; 923 1036 7 THEN | 
; 924 145 8 BEG 
; 925 1454 IDX_EOF = .J#4096 + .1*32 + LEFT_ONE (.BUFFERC.1)) 
: 926 1455 8 -PROTO_VCBLVCB$B_IBMAPSIZEJ + .PROTO_VCBLVCB$W_CLUSTERJ*4; 
; 927 1456 7 LEAVE IDX_SCAN; 
; 928 1457 3 
3; 9a 1458 g END; 
; ¥ 1459 END; 

; ats He «4 2 END; ! end of block IDX_SCAN 

: 333 1406 4 IDX_EOF = MINU (.IDX_EOF, .PROTO COL PCOS. FILESIZEI): 

; 934 14635 4 IF .IDX_EOF GTRU ~PROTO_f CBLF CBSC_EFBLK 

; 935 1464 4 THEN 

; % 1465 BEGIN 

; 9 1298 as LEAS AS of =_. IDX fOr: 

3; 9 146 PROTO_VCBCVCB$B_EOFDELTA] = 250; 

; 939 1468 4 END; 

3; 940 1098 4 

3 oh ren ? VOL_CTX CVC_IDXFILEOF] = .PROTO_FCB CFCBSL_EFBLK); 

; 308 1472 4 ! Scan the storage map to compute the number of free blocks on the volume. 
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1fo3so 1944 13508538 DISKSUMGMASTERSCMOUNT.SRCIMOUDK2.832-4°° (3 
' 

IF_.VOL_CTX CVC_NOTFIRST_MNTJ 
ger ROTO=vC8 CVCBSL_FREE) = .VOL_CTX CVC_VOLFREEJ 

BEGIN 

FREE = 0; 

DECR J FROM .COUNT TO 1 DO 


BEGIN 
MAP BUFFER : VECTOR; 


4 
4 

4 

4 

4 

; 

5 

6 

4 

6 

6 .LBN + 1; 

& STATUS = READ BLOCK (.LBN, BUFFER); 
6 TATUS 

7 BEGIN 

f IF .STATUS EQL SS$_VOLINV 

f ERR_EXIT (SS$_VOLINV) 

7 ERR MESSAGE (MOUNS BITMAPERR, 0, .STATUS);: 
7 PROTO_VCBLVCB$V_NOALLOC) = 1; 
6 END; 

& INCR I FROM 0 TO 127 DO 

7 BEGIN 

7 X = .BUFFERC.1); 

f IF .X NEQ 0 

8 
8 
8 
9 
9 
9 
9 
9 
5 
5 
4 
| 


2 AREF (32-.B2), X, B1) 
ZREF (32-.81), X, B2); 
R § + B ae . S 
Q 32 THEN EXITLOOP; 
END; 
END; 
END; 


PROTO_VCBCVCBS$L pest? = .FREE * .PROTO vCerVegsu CLUSTER]; 
= 


VOL CTX CVC_VOLFREE -PROTO_VCB CVCBSL_F : 


END; ! end of storage bitmap hdr read success 


eisee™ ! end of Files-11 specific mount processing 
BEGIN 


! This is a foreign mount. If this is a shared foreign mount, 
! take out the volume lock. 
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; 1001 1530 ' 

; 100 1531 ! If this is not the first mount for pais device, make sure 

; 100 1 § ! essential mount parameters are consistent with other mounts 

: 1004 1 ' elsewhere. 

; 1005 1534 ! For either the first mount of a cluster available device, or 

: 1S 13 5 for mounts of local disks, the routine is not called. 

; 1008 1 “ 

: 1009 1538 IF NOT .MOUNT_OPTIONS COPT_NOSHARE] 

; 1010 1539 THEN 

3; 1011 1840 4 BEGIN 

3 101g 1541 4 GET VOLUME _LOCK_NAME (); 

3 101 1286 5 IF NOT (STATUS = KERNEL_CALL (GET_VOLUME_LOCK)) 

: 1014 1543 4 HEN 

3; 1015 1544 4 ERR_EXIT (.STATUS); 

: 1016 1545 4 IF .DEVICTX CDC_NOTFIRST_MNT] NEQ .VOL_CTX CVC_NOTFIRST_MNT] 

: 1017 1546 4 THEN 

3; 1018 1547 4 ERR_EXIT (MOUNS_VOLALRMNT); 

3 1019 1548 ND; 

3; 1020 1549 

3 1021 1550 IF .DEV_CTX COC_NOTFIRST_MNTJ 

; Iss 1551 H 

3 19s 1326 ; CHECK_CLUSTER_SANITY(); 

3: 1024 155 

; 1025 1554 § END; ! end of foreign-specific mount processing 
1059 1386 

3; 1028 1557 $ ! Finally call the kernel mode routine to make it all real. Note that all the 
3 Hk 34 1558 ! hookups, including generating the mounted volume List entry. are done 
: Ot 1328 within one kernel mode cail so that they are uninterruptible by the user. 
3 1936 1561 

: 103 1266 IF .MOUNT_OPTIONSCOPT_OVR_LOCK] 

: IORe 1307 THEN PROTO_VCBCVCB$V_ROALCOC) = 0; 

3; 1036 1565 STATUS = KERNEL_CALL (MAKE_DISK_MOUNT); 

3: 1037 1566 IF NOT .STATUS 

3; 1038 1567 THEN 

3; 1039 1568 BEGIN 

3: 1040 1569 IF .STATUSCSTS$V_SEVERITY] EQL STSSK_SEVERE 

3; 1041 1570 THEN ERR_EXIT (.STATUS) 

3 ok 1571 S 

3 104 1276 4 BEGIN 

3 Hk 1573 4 IF .JO_STATUS 

3: 1045 1574 4 THEN ERR_MESSAGE (.STATUS) 

: 1966 1575 4 ELSE ERR_MESSAGE (.STATUS, 0, .I10_STATUS<0,16>); 

3; 104 1376 3 END; 

1009 13) - 

; 1050 1399 ! If this volume is being bound into a volume set, now do the on-disk 

: 193) 1580 ! modifications. 

<n ae 

: 1938 12 : CLEANUP_FLAGSCCLF_DISMOUNT) = 1; ! cleanup from here requires a full dismount 
: 1986 1 5 IF TESTBITSC (MOUNT_OPTIONSCOPT_DO_BIND)) 

3; 1057 1586 THEN BIND_VOLUME (); 
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1 | 
1b-5e =1984 01:19:59 VAX-11 Bliss-32 44.0-742 P 0 
1 ~$e07 138% 94:12:32 DISKSVMSMAS TER: CMOUNT .SRCIMOUDK2.B32:4> (3 v 
Announce that the volume is mounted. 


ERR_MESSAGE (MOUNS_MOUNTED, 3, VCBSS_VOLNAME, PROTO_VCBCVCBS$T_VOLNAME], PHYS_NAMEC .DEVICE_INDEX*2)); 


i If a FILES-11 volume is mounted with a reduced block cache, output the 
appropriate informational message. 


IF ( NOT .CACHE_STATUS ) 
AND ( NOT .MOUNT_OPTIONS COPT_FOREIGN] ) 


N 
ERR_MESSAGE (MOUNS_REDCACHE); 


Earlier in this routine, the CLF_REBUILD flag was set if either of 

the bitmaps (storage and file number) needs rebuilding. CLF_REBUILDQUO 
was set if the quota file needs rebuilding and quota are in fact 
enabled. Check if anything needs rebuilding and, if so, whether 

it should be done now. 


If, CLEANUP_FLAGS CCLF_REBUILD] OR .CLEANUP_FLAGS CCLF_REBUILDQUO) 
IF _ «MOUNT _OPTIONS COPT_NOREBUILD} 
BEGIN 
ERR_MESSAGE (MOUNS_REBLDREQD); 
CLEANUP_FLAGS CCLF-REBUILD) = 0; 
CLEANUP-FLAGS CCLF7REBUILDQUO) = 0; 


END 
ELSE 
i SMe FLARES CCLF_REBUILDQUO) 


CLEANUP_FLAGS CCLF_REBUILD) = 1; 


€ND; ! end of routine MOUNT_DISK2 
TITLE MOUDK2 
IDENT \v04-002\ 
-PSECT S$PLITS,NOWRT,NOEXE,2 
0000 0001 6601 00000 P.AAA: .WORD 1, 1, 0 : 
0000 0001 0001 00006 P.A WORD 1, 1, 0 F 
0000 0002 0002 O000C P.A «WORD o @e : 
-PSECT SOWNS,NOEXE,2 
00000 IO_STATUS: 
-BLK 8 
-PSECT S$GLOBAL$,NOEXE,2 
00000 BUFFER::.BLKB 512 
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00200 PROTO_VCB:: 
.BLKB 236 

OO2EC PROTO_FCB:: 
.BLKB 180 

003A0 PROTO_WCB:: 
-BLKB 228 

00484 VOLUME_UIC:: 
-BLKB 4 

00488 CACHE_STATUS:: 
.BLKB 4 
.EXTRN DEV_CTX, VOL_CTX 
SEXTRN VOLOCK COUNT; STORED_CONTEXT 

XTRN MOUNT 1 OPT IONS CLEANOP_FLAGS 

eEXTRN DEVIC 1CE.¢ USER_STATO 
“EXTRN LABEL ING DEVICE_INDEX 
SEXTRN PHYS cain NOFRUET NAME 
~EXTRN DRIVE_COUNT, WINDOW 
SEXTRN ACCESSED, EXTENSION 
-EXTRN EXT_CACHE, FID CACHE 
SEXTRN QUO~CACHE, EXT-LIMIT 
“EXTRN HOME BLOCK, HOREBLOCK LBN 
.EXTRN HEADER 7B CURRENT -B RV 
“EXTRN CUR RENT . VB cILSGL 


x AC BACK 
-EXTRN ACPS$GB WINDOW, ACPSGu_ SYSACC 
eEXTRN CHECK CLUSTER RASAN 

-EXTRN GET_VOLUM 
EXT G 


xX 
“EXTRN GET MAP_POINTER ~ 
~EXTRN BIND VOCURE, SYSSCMKRNL 
~EXTRN SYSSGETTI 

-PSECT S$CODES,NOWRT,2 


OFFC 00000 ~ENTRY T_DISK2, Save R2,R3,R4,R5,R6,R7,RB,RI,- 
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R10,R : 

B 0006 CF 9€ 0000 VAB ROUNT ort NS, R11 : 

5h ited CF 9€ 009 MOVAB FFE no ; 
oooos fF 360 fA Hi i HOVAB nes VCB CURR : O8e6 
OOEC BF 00 aes 00 € 90018 ROveS #0, (SP). 6! #5307, PROTO_VCB : 0926 
0488 CA 91 DO : MOVL CACHE_STATUS ; 0921 
E D4 CLRL = “{éP) : 0932 

SE DD 9 PUSHL ; 

00006 CF 9F B PUSHAB oF T_UIC : 

000000006 9 O5 F F CALLS #3, “aeSYSSCMKRNL : 

2 D MOVL ; PROCESS_UIC : 


20 


20 


SongeoRes 


“er 
00006 


00006 


000000006 


00006 
05 


00006 
00006 


00006 


00006 


00006 


50 oooegegye 


cA 
OD 
60 


52 
19 
AB 
AB 
AB 
AB 
AB 
60 


% SSS5S5S SSS 


CF 


O-—DOW FGWOONWBOO-B90 OO “OOOO $$ WO0OO— FO 
DOoOoCOOCOCGCOOCSCOOCOSOSOSO SOOO OOCOOOOOOOOOOOOOOO 
ooo 
> 


"OMS VSS SST nOl mn NOD RR RUGS PUD ARO ROROD -—PnNVa"—Pn 


9 
| 
! 
: 
; 
! 
: 
: 
3 
: 
: 
| 
6 
: 
f 
¢ 
: 
; 
6 


MMSMWOMNUNE DIO VwUyvINOow— 


on 


=1984 01:19:59  VAX-11 Bliss-32 v4.0-742 P 
“1380 3 188y Pee eel eta e hbotr eke amounk2.03202%" 


@#CTLSGL_PHD, PRIVILEGE_MASK 


VOL 
#1, MOONT OPTIONS+4, 1$ 
HOME BLOCR+44, vor, E_UIC 
OPTIONS+4, 

#21, TPRIVILEGE.MASK), 2$ 


VOLUME _UIC, PROCESS_UIC 


MOUNT_OPTIONS+3, 3 
#1, MOUNT_OPTIONS#3, 
#2, MOUNT— 

#3, MOUNT-OPT 
#4, MOUNT“OPTI . 
5. M 

#18, (PRIVILEGE_MASK), 6$ 
MOUNT _OPT IONS 


#3, (PRIVILEGE MASK), 6$ 
MOUNT _OPTIONS+T, 
oS¢ (PRIVILEGE_MASK), 7$ 


y 

#1, LIBSSTOP 

#3. MOUNT OPTIONS+1, 8$ 

PROCESS UIC VOLUME _UIC 
, MOUNT OPTIONS+3, 9$ 

#4. STORED CONTEXT 


E BLOCK?38, R 
MOUNT _OPTIONS#5, 11$ 
STRUCT_NAME, @STRUCT_NAME+4, #32, #12, - 
HOME BLOCK +460 


#7504276 
#1, LIBSSTOP 
12$ 


oo 
vw 
or 

boa bee 

oo 
= 

an 

++ 

.* 


S3gR2 


STRUCT _NAME, @STRUCT_NAME+4, #32, #12, - 


HOME BCOCK+460 
f { MOUNT _OPTIONS+5 


12$ 

#12, STRUCT_NAME 

HOME _BLOCK+%60, STRUCT_NAME+4 
T_CACHE 


@MACPSGW_EXTCACHE, EXT_CACHE 
MOUNT _OPTIONS* 


EXT_CACHE 
F ID-CACHE 


@#ACPSGW_FIDCACHE, FID_CACHE 
NT_OPTIONS+6, 16$ 


1 

#1, FID CACHE 
96 _CACRE 
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K 18-5e =1984 01:19:59 VAX-11 Bliss-32 V4.0-742 Page 23 Mi 
ees 1 ~$00n 138% 94:13:33 DISKSVMSMAS TER: CMOUNT. SRCIMOUDK2.B32:4" 3 vi 
00006 CF 000000006 9F 3C¢ 0012F MOVZWL @M#ACP$GW_QUOCACHE, QUO CACHE : 1027 : 
04 8° AB 84 Ei 1% 18$: BBC #1, MOUNT_OPTIONS+6, o§ : 18 8 . 
90006 CF 64 00130 CLRL  QUO_CACHE : 109 9 : 
G : D3 18 19$ Ist BXT-LIMIT + 1031 : 
99006 cr 000000006 3 4 S014 MOVZWL @#ACPSGW_EXTLIMIT, EXT_LIMIT ; 1032 : 
Oc CA 1 86 001 Q 20S: OVW 1, PROTO_VCB+ : 10 : 
024C CA 1 BO 001 MOVW #1. PROTO"VCB+7 + 1038 ; 
50 00006 CF 1 EF 0015A EXTZV #2, al. HOME BLOCK+42, RO + 1040 : 
0253 cA 01 3 FO 00161 INSV , #3, #1, PROTO veges: 3 ° 
0 00006 CF 1 : EF 00168 EXTZV ; #1, HOME BLOCR+42, RO + 1041 : 
0253 CA 01 04 F Ig INSV RO, #4, #1, PROTO_VCB+83 : ; 
i 93 00176 {sia WO NT_OPTIONS ; 1043 : 
0208 CA 40 8F 88 OOI7A BISB2 #64, PROTO _VCB+11 + 1044 ; 
06 oi AB ; 180 21$:  BLBC  MOUNT_OPTIONS+1, 22$ + 1045 : 
0208 CA 0 8F 8 1 BISB2 #128, PROTO ycBs + 1046 : 
0264 CA 00006 CF 00 0018A 22$:  MOVL HOME BLOCK+256, PROTO_vcCB+100 + 1051 ; 
14 04 AB 1 £1 00191 BBC #1, MOUNT _OPTIONS+4, 348 : 1053 : 
05 01 «AB 3 Fl 196 BBC #3. MOUNT-OPTIONS+1, 23$ + 1054 ; 
03 AB 93 0198 iste MOUNT _OPTIONS+ : ; 
0214 CA 00v0G CF oc 28 O91A5 23$: MOVES ie. HOME_BLOCK+472, PROTO_VCB+20 + 1057 ; 
0c 20 00006 oF 00006 CF 2c BotAg 24$:  MOVCS LABEL_STRING, @LABEL_STRING+4, #32, #12, - : 1060 3 
0214 CA 0183 PROTO-VCB+20 ; : 
03 01 AB 03 3 01B6 25$: BBC #3, MOUNT_OPTIONS+1, 26$ + 1062 ; 
0606 31 00188 BRW {$s ; : 
0100 = 8F 00006 CF 81 OO1BE 26$ CMPW HOME_BLOCK+38, #256 + 1066 ; 
09 1€ O01C BGEQU § 27$ : ; 
0100 8F 00006 CF 81 001C CMPW HOME_BLOCK+40, #256 + 1067 : 
Oc 1F 001C BLSSU 28s : : 
7E 08CO 8F 3C 00100 27$:  MOVZWL #2240, -(SP) : 1068 : 
000000006 00 01 FB 1D CALLS #1, LIBS$STOP ; : 
O20E CA 00006 CF : 10g 28$ MOVW HORE BLOCK+ 38, PROTO. VCB+14 + 1069 ; 
00006 CF 00006 CF 3¢C OO1E MOVZWL HOME BLOCK+38, CURRERT_RVN + 107 3 
02 4 CA 0006 CF DO OO1EA MOVL  HOMEBLOCK_LBN, PROTO VlB+36 : 107 : 
0 8 CA 9 0G Cf DO O01F1 MOVL HOME BLOCR+4, PROTO_CB+40 : 107 : 
02 CA 4 CA 39 Ours CRPL PROTO_VCB+36, PROTO-VCB+40 + 107 : 
12 \2 1FF BNEQ 29 : : 
0208 CA 4 0291 BISB2 #4, PROTO_VCB+11 : 1078 ; 
00729000 8F DD 06 PUSHL #750796 : 1079 : 
000000006 00 SS, ¢ CALLS #1, LIBSSIGNAL ; 3 
0 0 CA 6 CF D 13 298 MOVL HOME _BLOCK+24, PROTO VCB+48 : 1083 : 
C CA G CF D 1A MOVL § HOMEBLOCK+8, PROTO UCB+44 : 1 : 
023C «CA G CF 1 MOVW § HOME-BLOCK+14, PROTO_VCB+60 + 1086 : 
0 G6 CF 9A 8 MOVZBL DEVICE CHARS. RO : 1089 : 
1 G cr A ROVZBL DEVICE-CHAR+9, R1 : : 
0 1 gé MULL2 RI, R ; : 
00006 cr i 3 mOVZ¥L D vic _CHAR+10, R2 ; 1090 ; 
51 00006 cr pitts DEVICE CHARS 112 RO, R1 : 1091 3 
0253 CA 1 4 MOVE 1, PROTO vege é F 2 
48 «CA 00006 i 48 ROVE peg . PROTO_VCB+72 i 3 : 
l 0248 CA ; 9 21 MOVB #7, PROTO VCB+72 > 1095 : 
9 01 #ABOE 6 308 BLBC § MOUNT_OPTIONS+1, 31$ :1 : 
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EXT, 36$ 


VCB+ 
BE _BLOCK* 0, PROTO_VCB+62 


#5, PROTO veBeg2 
MOUNT_OPTIONS+ 


EXTENSION, PROTO _VCB+62 
eit PE PROTO_VCB+56 
HOME _BLOCK+32, #255 


He 40, <(SP) 
#1, LiBssToP 
HORE BLOCK +2 , PROTO 
HOMEBLOCK+28, #1044 


y 
#1. LiessTop 

#32, PROTO VCB+11 
HOME _BLOCK#34, PROTO_VCB+79 
HOME BLOCK+34, #255 


2240 -(SP) 
wi, uf 


BSSTOP 
MOUNT OPTIONS+5, 42$ 
STORED CONTEXT, 43$ 

> PROTO_0CB+8 
#4, MOUNT-OPTIONS*+6, 44$ 
#2, PROTO-VCB+83 
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#8, HOME BLOCK+72, PROTO_VCB+1 
#8. HOME-BLOCK+80, PROTO-VCB+1 
PROTO VCB+56, R 
aPROTO_vcB+G6CR J, HEADER_LBN 


HEADER_LBN 
#2, READ SLOCK 
R STATOS 

STATUS, 47S 
P.AAA 


Ri0 
it CHECK HEADER2 
RO. 48 
#1. USER_STATUS 
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ROUTINE MOUNT_HANDLER (SIGNAL, MECHANISM) = 


tee 
t 
FUNCTIONAL DESCRIPTION: 
This routine is the condition handler for the main disk mount 


i 

i 

‘ 

; code. It undoes any damage done so far and returns the error 

: status to the user mode caller. 

i 

' CALLING SEQUENCE: 

: MOUNT_HANDLER (ARG1, ARG2) 

i INPUT PARAMETERS: 

. ARG1: address of signal vector 

} ARG2: address of mechanism vector 

i IMPLICIT INPUTS: 

: global pointers to blocks allocated 

i QUTPUT PARAMETERS: 

NONE 

i IMPLICIT OUTPUTS: 

: NONE 

i ROUTINE VALUE: 

: SS$_RESIGNAL 

i SIDE EFFECTS: 

: necessary cleanups done 

leo 

BEGIN 
SIGNAL : REF BBLOCK, ! signal vector 
MECHANISM : REF BBLOCK; ! mechanism vector 

EXTERNAL 

T_ OPTIONS : BITVECTOR, ' command parser ortsons 

CLEANOP_FLAGS : BITVECTOR; ! cleanup action flags 

EXTERNAL ROUTINE 
CHECKSUM ' compute block checksum 
LOCK_ CLEANUP : NOVALUE, ' cleanup gev and vol locks. 
READ BLOCK, ' read a disk block 
WRITE _BLOCK; ! write a disk block 


! Note that cleanup is done if we are unwinding, which occurrs when 
: we take an error exit. 


IF (.SIGNALCCHFSL_SIG_NAME] NEQ SS$_UNWIND) 
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1 -32 vV4.0-742 Pa 3 
1 ER: CMOUNT. SRCIMOUDK2.B32:4> if 
AND ((.BBLOCK PSiGNaL CHFSL_SIG waned: $ 
THEN (.BBLOCK LSIGNAL LCHFSL_SIG_NAMEJ, S 
BEGIN 


! Clear the dirty bits in the storage control block if they were set. 


ee re MP _FLAGSECLE CLEANSE] AND .MOUNT_OPTIONSCOPT_WRITEJ 
BEGIN 
IF READ BLOCK (.PROTO_VCBCVCBSL_SBMAPLBNJ-1, BUFFER) 

IF FUFFER CSCBSW_WRITECNT] NEQ 0 

THEN 


BEGIN 
IF std » CSCBSW_WRITECNT) = .BUFFER CSCBSW_WRITECNT] - 1) 
TH 


N 
BUFFER CSCBSL_STATUS) = 0; 


CHECKSUM (BUFFER); 
WRITE BLOCK (.PROTO_VCBLVCBSL_SBMAPLBNJ-1, BUFFER); 


' 
END; . 
LOCK_CLEANUP (); 
END; 
aaa 


| 
5 
: 


! end of routine MOUNT_HANDLER 


.EXTRN LOCK_CLEANUP 
0004 00000 mOUNT_HANDLER: 

eWORD Save R2 
9E 0000 MOVAB BUFFER, R 
D SIGNAL. R 

MPL 4(RO), #2336 

CHPZV #0, #3, 4(RO), #4 
CMPZV #0, #3, 4(RO), #2 
BNEQ 


#4, CLEANUP FLAGS+1, 38 
#1, MOUNT_OPTIONS+1. 3$ 


#1, PROTO VCB+52, -(SP) 
READ_6LOCK 
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00000920 =68F 04 


eb at 


$8 00006 
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7€ 606 i 
6 20 


50 20 


—_ 
on 
ee 


BLEC =O sé 

MOVAB FFER+32, RO 

MOVZWL BUFFER*32, RO 
‘tee 
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8 MOVW RO, BUFFER+32 
p TSTL R 
BNEQ 2 
D CLAL BUF FER+24 
DD 28 PUSHL R 
FB 00 2h CALLS » CHECKSUM 
0p 005F PUSH 
C3 00061 SUBL » PROTO, VCB+52, 
FB 00067 CALLS ie. WRITE-BLO 
a: o006C 3$: CALLS boc. CPE ANUP 
3¢ 00071 4$: MOVZWL #242 
04 00076 RET 
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ROUTINE MAKE_DISK_MOUNT = 


32 
R 


=32 V4.0=-742 P 4 
E : CMOUNT . SRCIMOUDK2.B32:4" & 


144 
i 


FUNCTIONAL DESCRIPTION: 


33 4 


WRI OS OONAULS WN $9 ODNAUS WN SO OONAOULS WN —OOONAOUE WI" OWONOUS 


This routine does all of the data base manipulation needed to get 
a volume actually mounted. It allocates the real VCB, FCB, and 
window, and hooks then all together. It also starts up the ACP 
gets the mounted volume List entry made. 


tt 4 2 4 tt 


SEURA FULTS SS SSSR ACL SSES 


CALLING SEQUENCE: 
MAKE_DISK_MOUNT () 


INPUT PARAMETERS: 
NONE 


i 
i 
i 
' 
i 
i 
i 
i 
' 
i 
i 
i 
! IMPLICIT INPUTS: 

: MOUNT parser data base 

: own storage of this module 
1 
i 
i] 
i 
i 
i 
i 
' 
i 
i 
i 
i 
i 
te 


3; 1 17 1 

3; 5 17 1 

3 1 17 1 

3 3 17 1 

. 3 17 1 

3 3 17 1 

3 1 17 1 

3; 1 17 1 

3; 1 17 1 

3 1 17 1 

3 7 17 1 

3 4 17 1 

3 1 17 1 

3 1 17 1 

3 1 17 1 

3 1 17 1 

3; 1 17 1 

31 17 1 

S| 17 1 

3 12 17 1 

iB 1 | 

: 13 17 1 ! OUTPUT PARAMETERS: 

ites is ito 

; 1312 17 1 ! IMPLICIT OUTPUTS: 

S152 ey 4 ss 

3 1215 174 1 ROUTINE VALUE: 

: 1518 1745 1 1 if successful 

3 ; \ ive ! status values if not 

; 1319 1746 1 ! SIDE EFFECTS: 

3 1 $ 1747 1 volume mounted 

; Ig 1 1748 1 

: 1555 10 1 

HBS IRL g com 

3 1226 175 BUILTIN 

: 1227 175 INSQUE; 

HB RES wocm 

3 \ 0 175 WINDOW_SIZE, ! size in bytes needed for window 
: 1231 175 ucB : REF BBLOCK, ' pointer to volume UCB 

3 1 § 175 ORB : REF BBLOCK, ' Pointer to device ORB 

3 1 176 vcB : REF BBLOCK, ! pointer to volume VCB 

3 1 176 RVT : REF BBLOCK, ! pointer to yetune set RVT 

: 1235 176 SYS_STATUS, ! system service status 

3:1 176 STATUS ! general status value 

:1 1764 NOWRITE, i State of volume set write lock 
31 1765 ERASE, ' state of volume qrpsenon delete 
3: 1239 1706 NOHIGHWATER, ' state of volume file-highwater-marking 
3: 1240 17 MOUNTVER, ' state of volume set mount veriticatton 
3 ; re 1708 LOCKED; ! state of volume set allocation lock 
3 124 193¢ EXTERNAL 


J 
Sh 


~m 
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REAL ~VCBLVCB$B_ 
CHSMOVE (VCBSC"LENGTH-1 
UCB = GE 


TYPE] = gre 

T SHANRELY “ 
ORB = ,UCBCUCBSL_ORB); 
RVT = 6; 


VGB; 
» PROTO_VCB+11, .REAL_VCB+11); 
CHANNEL) ; 


> 1244 1771 DEV_CTX : BBLOCK FIELD (DC), ! device context : 
3 1245 1006 VLSETLCK_CTX : BBLOCK FIELD (VC), ! volume set lock context ; 
3; 1 m4 177 VOL CTX : BBLOCK FIELD (VC), ! volume lock context ; 
3 124 1774 MOUNT_OPTIONS : BITVECTOR, ' command parser options : 
3: 1 rk: 1775 STORED_CONTEXT : BITVECTOR, ' looks at x9P flag ; 
3 124 1006 CLEANUP_FLAGS : BITVECTOR, ! cleanup action flags : 
; 1250 177 DEVICE COUNT, ' number of devices specified “ 
3; 1251 ee CHANNEL, ' channel assigned to device ° 
3 1 2g 177 STRUCT NAME : VECTOR, ! descriptor of yolume set name ‘ 
; 125 1780 HOME _BCOCK : BBLOCK, ! buffer containing home block : 
3 1254 1781 OWNER _UIC, ! owner UIC from command ; 
: 1255 17 ¢ PROTECTION, ' volume protection from command : 
3 1256 17 EXT_CACHE, ! size of extent cache to allocate ‘ 
; 1257 1784 FID CACHE, ! size of file ID cache to allocate ‘ 
: 1258 1785 QU0_CACHE, ! size of quota file cache to allocate ‘ 
; 1259 1786 EXT LIMIT, ! Limit of volume space to cache ‘ 
3 1260 17 CURRENT _RVN, ! RVN of disk being mounted : 
3 1261 1788 REAL_VCB REF BBLOCK, ! address of VCB allocated : 
31 o¢ 1789 REAL_VCA REF BBLOCK, ! address of volume cache allocated ‘ 
3; 126 1790 REAL_FCB REF BBLOCK, ! address of FCB allocated ‘ 
; 1264 1791 REAL WCB REF BBLOCK, ! address of window allocated : 
; 1265 1736 MTL REF BBLOCK, ! address of mount List entry : 
: 1266 179 SMTC_ENTRY REF BBLOCK. ! address of mount List entry for volume set ‘ 
3 1267 1794 CTLSGL_VOLUMES : ADDRESSING_MODE (ABSOLUTE); ° 
: 1268 1795 ! count of volumes mounted by process : 
: 1568 178 . : 
: 1270 179 EXTERNAL ROUTINE : 
: 1271 1798 GET_VOLSET_LOCK, ! get cluster lock for volume set. : 
; 1376 1799 STORE CONTEXT ! write appropriate value blocks. ; 
3; 127 1800 GET_CRANNELUCB, i get UCB assigned to channel : 
3 1274 1801 ALLOCATE_MEM, ' allocate system dynamic memory : 
: 1275 1806 START_ACP, ! start and connect ACP to device ; 
; 1276 180 LOCK _TODB : ADDRESSING_MODE (GENERAL), ! lock 1/0 database mutex : 
3 1277 1804 UNLOCK. 10DB : ADDRESSING_MODE (GENERAL), ! unlock 1/0 database mutex : 
; 1278 1805 NTER_RVT ! attach to relative volume table : 
3 1279 1806 ALLOC_LOGNAME, ' create logical name and MTL blocks : 
; 1280 1807 ENTER LOGNAME, ! enter logical name and MTL in Lists : 
3 i 1308 SEND_ERRLOG; ! send message to error logger : 
; 128 1810 : 
3 1284 1811 ! Allocate all of the required control blocks. We allocate them in ‘ 
; 1285 1 \¢ : advance to avoid moving to back out of some awkward situations later on. ; 
3 1 181 ! The one exception is the AQB, which is either found or allocated by : 
31 1814 2 | START_ACP. : 
31 1815 : : 
; 1289 1 1 : 
; \ Sy : ' ENABLE KERNEL_HANDLER; . 
3 i 3 ' 1 REAL_VCB = ALLOCATE _MEM (VCBSC_LENGTH, 0); : 
3 1294 1 : 
: 1596 ; 
ie | : 
3 7 39 1 : 
3 3 1 ‘ 
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IF NOT .MOUNT_OPTIONSCOPT_FOREIGN) 
THEN 


DONA UE WII —OWOo 


1B-Se0-1986 01:19:59 vaNedt alts 
BEGIN 
LOCAL FCB_ORB : REF BBLOCK; 


REAL_VCBCVCBSL_FCBFL) = REAL_VCBLVCBSL_FCBFL 
REAL_VCBLVCBSL_FCBBLJ = REAL-VCBLVCBSL_FCBFL 


REAL_FCB = BSh TYPE MEM (rcesc et LENGTH, 0); 


REAL-FCBCFCBS$B_TYPE] = 

CHSMOVE (FCBS$C C_LENGTH- -1 PROrS ices 11 un AL. FCB+11); 
REAL_FCBCLFCBSL_WLFL] = REAL_FCBCFCBSL 
REAL-FCBCFCBSL_WLBLJ = REAL FCBCFCBSL— “teed: 


FCB_ORB = REAL FCBLFCBSR 2OR 1; 
FB “ORBCORBSV_ACL QUEUE "= 
FCB-ORB ORBSL-A ACL-COUNT 

FCB-ORBCORBSL_ACL_DESC] = “os: 
INSQUE (.REAL-FCB> REAL_VCBLVCBSL_FCBFLI); 


WINDOW, size 2 WcBSe LENGTH + MAXU (.PROTO_WCBCWCBSW_NMAP] + 2, 6) * 6; 
REAL_W ass TY E-MEM (. WINDOWS SIZE, 0)7 

REAL sucervce niveey = DYNSC_W 

CHSMOVE (.W size ze-11, PROTO “tce+11, »REAL_WCB+11); 
REAL vepcucas, ONS 


AL_ FCB: 
INSQUE (.REAL_QCB, REAL REAL CBE _WLFLI); 


' Allocate the cache block for the volume, computing the size from the cache 
; perenstera, 
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REAL_VCA = ALLOCATE MEM (VCASC LENGTH 
+ SBYTEOFFSET (VCASL_F 
+ SBYTEOFFSET (VCASO~E 


REAL_VCBCVCBS$L_CACH 1 = ah VCA; 
VCASB_T QCA: 

ACVCASL~ “F IDCACHE -REAL_VCA 

REAL “VCALVCASL~EXTCACHE REAL ve 

_Vv 


= 
+ $8 
BBLOCK [.REAL_VCALVCASL_F IDCACHE 
BBLOCK [-REAL-VCALVCASL_EXTCACHE), VCASW-E 
BBLOCK [.REAL VEALYCA VCASL-EXTCACHE), VCASWE 
LOCR VCALVCASL i otaeneae'V 


L KERN + 

BBLOCK BBLOCK beh ausitie ego VCA 
Ls¢ KERNEL + ACB T 

REAL Pace VCBSW_ GUOSIZE ~QU0_CACHE 


IST) + .FID CACHE * 4; 
-FID_CACH 


VCA G 
VCA G 
nM; i. 
4 -EXT~ CACHE: 


$¢ TH 
$¢ TH 
AS L 
ID = 
XT 

< 


Sram i 


j X 
FIDCACBJ; tACBSB_ RMODJ 
_EXTCACB], ACB$B_RMOD) 


! If this volune ts part of @ volume set, attach it to the RVT for the set, 


creating one 


> ee > 


ee ce me ce ee ee me ce ec cm ee me ee ee ee me te ee ee ee ed ed ed od oe dd dd oe de 


1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
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it doesn't exist. 


REAL_VCBCVCBSL_RVT] = .UCB; 
JF. HOME BLOCKCHNZSY_AVNI NEQ 0 OR .MOUNT_OPTIONSCOPT_BINDJ 


BEGIN 
RVT = ENTER_RVT (STRUCT_NAMECO), .UCB); 
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REAL_VCBEVCBSL_AVT) = .RVT; 
Lfimesu_RvN2; 
HOME -BLOCKCHM2$W_RVNJ; 
1)<24,8> = REAL FCB FCBS$B_FID_RVNI; 


wR 

REAL-WCBLWCBSL_RVT) = .R 

CURRENT_R C 

REAL_FCBCFCBSW_FID_RVN ; 
-HOME_BLOCKCHM2$W_RON 


VN = JHOME ons 
I 

(REAC_ FCBCFCBSC_LOCKBAS 

= 


"] 

Vv 

K 

§ 
REAL_VCBCVCBSW_RVN 0 
Take out the volume set lock. Also check for Eyyeter uniqueness 
of the volume set structure name. Note that this 


A 9 ven volume ogt must always be mounted in the same order on 
different nodes 


SBLSGRANLS SAVE 


the volume set lock already exists, even though it is the first mount 
on the RVN 


Ssaze 


IF .RVT CRVTSL_STRUCLKID) EQL 0 
THEN 


BEGIN 
GET_VOLSET_LOCK(); 
eee Cxap? 
IF .DEV_CTX COC_NOTFIRST_MNT) NEQ .VLSETLCK_CTX CVC_NOTFIRST_MNT) 
ERR_EXIT (MOUNS_VOLINSET); 


3S 
Oo 


END; 


ed 8 ad od dd 
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! Now allocate space for logical name and mounted volume List entries. 

! If this is volume 1 of a set, we allocate 2 - one for the volume as usual 

! and one for the set. If a logical name is given in the command, it is assigned 
! to volume 1 of the set, or if only one volume is being mounted, to it. 

: Otherwise, the logical name is constructed from the volume Label. 


yg -MOUNT_OPTIONSCOPT_FOREIGN] AND .HOME_BLOCKCHM2$W_RVN] EQL 1 


a a ee a ee a ee a ad a a a a td a ll ce a ee a 
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4 
4 
4 
4 
4 
4 
4 
4 
4 
4 
4 
4 
4 
4 
4 
4 
4 
4 
4 
| 
4 
4 
END; 
END; 


400 BEGIN 

rit ALLOC_LOGNAME (0); 

4 § SMTL_ENTRY = .MTL_ENTRY; ! copy reserved entry to entry for set 
40 MTL_ENTRY = 0; 

404 ALLOC_LOGNAME (1); 

406 END 

4 ELSE 

$38 BEGI 

4 IF .DEVICE_COUNT EGL 1 

410 THEN ALLOC_LOGNAME 9% 

411 3 ELSE ALLOC_LOGNAME (1); 

218 10 -_— 

414 941 ! ALL data blocks except the AQB are now allocated. First set up the 
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! volume ownership and protection in the VCB. Now hook up the blocks 
to the device data base and start the ace ° 


— 62 2 
00000 
FREESE 


ue ucesy -UNLOA 1 = NOT .MOUNT_OPTIONS COPT_NOUNLOADJ; 


We Re 

118i 1944 

> 14 : 1 

: 14 1947 OWNER VOLUME _U 

: 1421 194 tae AON ONSLOPT OWNER vies 

: 16 ¢ 194 THEN ORB ORBSL co OWNERJ~= .OWNER_UIC; 

: 1424 19 ORBCORSY PROT aL ! $OGW protection word 
> 1425 19 IF .MOUN SCopT sfones Gu} 

: 14 $ 1 THEN ORB Ones i PROT] & FFOO" 

: 14 1 ELSE ORBCORB PROT HOME BLOCKCHM2$W_PROTECT]; 

> 1428 1955 OIF. OPTIONSCOPT “PROTECTION 

; 16 9 1996 THEN <POUNT soRT0 PROT] = .PROTECTION; 

2 1431 1958 STATUS = 1; 

: 14 : 195 TF NOT .MOUNT _OPTIONSCOPT_FOREIGNJ 

er 19eh § eMac 

> 1435 196¢ REAL_VCB_CVCBSV_MOUNTVER : ghount OPTIONS COPT_MOUNTVER]; 

: 14 196 REAL WCBCWCBSL_ORGUCB) = 

: 14 1964 START_ACP (.UCB, .REAL Vee Riese _F11V2); 

: 1439 1298 ' Store value blocks of device and volume locks, as appropriate. 

> 1440 196 i 

: 1441 1968 

: 1469 1969 STORE_CONTEXT (); 

: 1444 1971 ! Unless the disk is being 9 mpyrtee {uocyots or {s write locked, attempt 
3 1445 1376 !' to connect the quota file RVN is 0 or 1. If it fails with no such 
3: 1446 197 ! file, then proceed; else 4A, ~ volume. 

Hg ORB Y 

: 1449 1976 1 NOT .MOUNT_OPTIONSCOPT_NOQUOTA] 

3: 1450 197 - AND .REAL vCetVCBSu RVN) CEQU 

: 1451 1978 AND Nor REAL pi yraey NOALLOC 

: 145¢ 19 T OPTIONS OPT_ORITE 

2 1022 138) i BEGIN 

; 1438 1? ¢ ? PSECT PLIT = SOWNS; ! ACP argument blocks must be writable 
Sy ee ae 

. = 

: 1235 P 1986 4 CHAN = .C OUNT EN, 

+ 1460 P1987 4 FUNC = I0$_ACPCONTROL, 

t lee2 P1988 6 49S = aoriy Uriest ATA 

. = 

; 1288 P 1 4 UPLIT™ mg wok 0, 0), WORD (4, 4, 0), 0, 
> 1464 P1991 4 RD ( “Fest end ouotA).. 05, 

; 1465 P 199¢ 4 P2 = DESCRIPTOR ("QUOTA. sv§;1") 

; 146? 1994 4 IF NOT .SYS_STATUS THEN IO_STATUS = .SYS_STATUS; 

: 1068 1996 4 IF NOT .10_STATUSCOJ 

+ 1470 1997 4 THEN 

+ 1471 1998 5 BEGIN 
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CLF _REBUILDQUO wes set in MOUNT_DISK2 if the QUODIRTY flag was 
set in the SCB, indicating that the disk was improper Y dismounted 
sometime in the pest when quota caching was enabled. However, if 
we failed to enable quotes here for whatever reason (normally just 
failure to find a quota file), clear the flag now so that quota 
rebuild is not attempted. 


ee ee 


CLEANUP_FLAGS CCLF_REBUILDQUO) = 0; 
IF_ .IO_STATUSCO] NEQ SS$_NOSUCHF ILE 
THEN 


BEGIN 
REAL _VCBCVCBSV_NOALLOC] = 1; 
STATOS = MOUNS_QUOTAFAIL; 


: Do /FOREIGN processing if requested. 


ELSE 
BEGIN 


: Store value blocks of device and volume locks, as appropriate. 


STORE_CONTEXT (); 


LOCK_10DB (); 
ucetOcest_v¢B] = ,REAL vcB; 

UCBCUCBSL~DEVCHAR) = .OCBCUCBSL_DEVCHAR) 

OR (DEVSM_MRT OR DEVSM_DIR OR DEVSM_FOR); 
SET_DATACHECK (.UCB, 0); 
UNLOCK 1008 QO; 


IF _.MOUNT OPTIONSCOPT_NOSHARE] AND .CLEANUP_FLAGSCCLF_DEALLOCATE] 
THEN UCBCOCBSV_DEADMO] = 1; 


IF NOT, -ROUNT OPTIONSCOPT WRITE 
THEN BBLOCK COCBCUCBSL_DEVCHAR). DEVSV_SWL) = 1; 


! Enter the logical name for the volume; bump the user's volume mount count, 
; and make the error log entry for the mount. 


ENTER LOGNAME (.UCB, .REAL_VCB); 
CTLSGC_VOLUMES = .CTLSGL_VOLUMES + 1; 
SEND_ERRLOG (1, .UCB); 


! If any yolune in the set is mounted /NOWRITE or is locked due to an error, 
! the entire volume set must be similarly locked to prevent fendos pehayior, 
! Scan the RVT and process all volumes in the set. Also inhibit disk rebuild 


: CMOUNT . SRC JMOUDK2 .B32; 
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3 } +] ; } if the volumes are locked. 

: 1531 

3; 1 4 NOWRITE = .BBLOCK UcetUCes. DEVGHARI. DEVS$V_SWLI; 
3; 1 LOCKED = .REAL_VCB Me V_NOACLOC); 

31 MOUNTVER = .REAL vce VCBSV_MOUNTVER]; 

: 1535 ERASE = ,REAL_VCBLVCB$¥_ERASEJ; 

: ! NOHIGHWATER =" .REAL_VCB8CVCBSV_NOHIGHWATER); 

3 3 65 IF .RVT NEQ 0 

3 1539 THEN 

3; 1540 BEGIN 

3; 1541 3 LOCK_I0DB (); 

, 3 ¢g 3 

3 154 8 0 INCR J FROM 1 TO .RVTCRVTSB_NVOLS) 

> 1544 71 dO 

3 1545 ors & BEGIN 

3: 1546 073 4 

3: 1547 074 4 LOCAL 

3 1548 075 4 RVUCB s REF BBLOCK; 

3 1549 ore 4 

3; 1550 077 4 RVUCB = .VECTOR CRVTCRVTSL_UCBLSTJ, .J-1); 
3 1551 078 4 IF .RVUCB NEQ 0 

3 1326 079 4 THEN 

3; 155 080 5 . 

3 1554 081 2 IF .NOWRITE 

3; 1555 08 THEN BBLOCK CRVUCBCUCBSL_DEVCHAR], DEVSV_SWLJ = 1; 
3 1328 ti 5 NOWRITE = .BBLOCK CRVUCBCUCBSL_DEVCHAR], DEVSV_SWLJ; 
3; 1558 085 VCB = .RVUCBCUCBSL_VCBI; 

3; 1559 p36 IF .LOCK 

: 1560 08 THEN VCBLVCB$V_NOALLOC) = 1; 

: 1561 088 5 LOCKED = .VCBLVCB$V_NOALLOC); 

3 1366 44 2 

3; 156 0 IF .MOUNTVER 

3 1564 091 THEN VCBCVCBSV_MOUNTVER] = 1; 

: 1565 09¢ MOUNTVER = .VCBLVCB$V_MOUNTVER); 

3: 1566 09 

3: 1567 094 IF Enact 

3; 1568 095 THEN VCBCVCB$V_ERASE) = 1; 

: 1569 94 ERASE = .VCBCVCBSV_ERASE); 

3 1320 09 

; 1571 09 IF oe ree 

: 1376 0 THEN VCBLVCBSV_NOHIGHWATER) = 1; 

: ' oF : , NOHIGHWATER = .VCBLVCBSV_NOHIGHWATER); 
3: 1575 1 § END; 

:1 6 1 UNLOCK_f0DB (); 

3; 157 1 END; 

3 7 A 105 

3 7 1 IF .LOCKED OR .NOWRITE 

: 1381 198 THEN CLEANUP_FLAGSCCLF_REBUILD) = 0; 

: i 5 1 : jncronent the refcount, so that it never goes to zero white the device 
: 138? 110 ' is mounted. 

3 15 111 ! ALL subsequent error paths from this point must do a full dismount to 
3; 1585 112 ! correctly remove the refcount bias. 
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UCBCUCBSW_REFC] = .UCBCUCBSW_REFC] + 1; 

RETURN .STATUS; 


END; ! end of routine MAKE_DISK_MOUNT 


9009 99 x 
00 * 
30900 


31 38 53 59 53 2— 41 54 4F 
0 
0 


«PSECT SOWNS,NOEXE,2 


vw 
° 

P ad 
> 
m 


“ADDRESS P.AAE 
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eEXTRN VLSETLCK_CTX, DEVICE COUNT 
EXT C 


AONOOLOO WMO 

ue 

. 
oO 
zz 
o 
> 

~o 


WWII NININ | — COO 


EXTR -\ L 
~EXTRN REAL_WCB, MTL_ENT 
SEXTRN SMTL-ENTRY, tresGL. VOLUMES 

EXTR SET_LOC 
-EXTRN STORE_CONTEXT, GET_CHANNELUCB 
-EXTRN ALLOCATE MEM, START_ACP 
~EXTRN LOCK_IODB, UNLOCK 1008 
eEXTRN EATER. RVT, ALLOC_COGNAM 
SEXTRN ENTER-LOGNAME, SEND OERRLOS 
-EXTRN COMMON_IO 


-PSECT S$CODES,NOWRT,2 
OFFC 00000 MAKE_DISK Pots 


90 Saye R2,R3,R4,R5,R6,R7,RB,R9-R10,R11 
6D 0382 cr é : MOVAL 298, (FP) 
E p CLRL ty 
7E EC BF 9A MOVZBL #236, ~(SP) 
99006 CF ; F CALLS #2, ALLOCATE_MEM 
G CF 1 MOVL R REAL vB 
A AO 1 1 MOVE #17, 10(RO) 
08 ad 0000° CF 9 a 18 movc3 #225, PROTO_VCB+11, 11(RO) 
0006 CF DD PUSHL CHANNEL 
00006 CF i. 8 CALLS #1, GET_CHANNELUCB 
7 9 D MOVL RO UCB 
8 1c (A? OD MOVL § 28¢UCB), ORB 
4 D4 CLRL 3s RVT 
03 00006 CF 5 BBC #3, MOUNT_OPTIONS+1, 1$ 
0170 «31 C BRW 5 
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B_ORBY 
(R6) REAL vCcB 
PROTO_WCB+22, R2 
#2, R 
R2, # 
#6, R 
#6. R 
#48, WINDOW SIZE 
WINDOW_SIZE 
#2, ALCOCATE_MEM 
RO, REAL_WCB 
REAL W B; R6 
#18, 10(R6) 
PROTO_WCB+11, 11(R6) 


L_FCB,~24(R6) 
REAL FCB, RO 
§, (R 


z2> 
mew 
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= 19CRG) 

QUO_ CACHE, 96(R2) 

UCB; 32(R2) 
GME _BLOCK+38 
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DK 1b-5e -1984 01:19:59 | VAK=-11 Bliss-32_V4.0-742 Page 43 
Mon ob 1 ~3007 138% 94:13:32 DISKSVMSMASTER: CMOUNT . SRC IMOUDK2.B32:4> (33 
63 00006 £9 001 BLBC §_ MOUNT_OPTIONS+5, 4$ : 
eS Bo 138 3$: PUSHL UCB ~ + 1884 
00006 CF 9F O013A PUSHAB STRUCT_NAME : 
00006 CF : FB 001 CALLS #2, ENTER_RVT : 
9 D0 001 MOVL RO, RVT : 
1 00006 cr D0 0014 MOVL REAL_yce R1 + 1885 
20 «Al 9 00 00148 MOVL VT, ~32(R1) : 
5 00006 cr DO OO14F MOVL REAL UC RO + 1886 
10 OA 9 p 154 MOVL VT, ~28(RO) : 
5 00006 CF 158 MOVZWL HOME BLOCK+38, R2 + 1887 
00006 cf 2 dO 001 MOVL 2, CURRENT_RVN : 
00006 cE D0 001 MOVL REAL_FCB, RO + 1888 
28 OA : 1 MOVW OR ZOCRO) : 
GF OA 28 OA 1 8 MOVB 40(RO), 79(RO) + 1889 
OE Al 52 B80 001 MOVW R2, 14¢R1) + 1890 
3 BOTT gveh ak . 
09006 CF g Fe 138 CALLS 40, GET_VOLSET_LOCK + 1906 
18 C9006 CF ; 170 BBC #2. STORED CONTEXT, 4 + 1908 
50 00006 cr 00006 cr 8p KORB3 tet VESETLCK_CTX, RO > 1910 
00728194 er DD oi PUSHL # $06576 + 1912 
000000006 00 1 FB 1 CALLS #1, LIBS$STOP : 
18 00006 CF 03 £0 00198 4$: BBS #3. MOUNT OPTIONS+1, 5$ > 1925 
01 00006 cf 8} Oia} CMP HOME _BLOCR*38, #1 
7E D4 brag CLRL = = (SP) : 1928 
00006 CF 01 FB OIA CALLS #1, ALLOC_LOGNAME F 
00006 CF 0006 CF DO OO1AF MOVL MTL_ENTRY> SMTL_ENTRY : 1929 
0006 CF 04 001B6 CLRL = MTL~ENTRY : 1930 
OB 11 OO1BA BRB : 1931 
01 00006 CF 01 001BC 5S: CMPL DEVICE COUNT, #1 : 1936 
4 12 001C1 BNEQ 6 ; 
20 na Sew 
00006 CF ri Pe 169 $3: CALLS 4 ALLOC_LOGNAME in 
50 00006 CF ! i EF 5 EXT ZV #2. #1, MOUNT_OPTIONS+1, RO ; 1946 
65 A? 01 04 FO 0010 INSV. RO, #4, #1, 101(UCB) : 
68 0000' CF DO 0010 MOVL VOLUME UIC; (ORB) > 1947 
05 00006 CF 2 £1 OO1E BBC #2, MOONT_OPTIONS+2, 8$ > 1948 
68 00006 CF 1E MOVL OWNER_UIC> (ORB) > 1949 
08 00096 ee } ¢ iF - EF UTCOR) onset 9$ : 1923 
18 «AB FFOO f BG IF Ov #-256, 24TORB) 1388 
18 AB 00006 CF B 9$: MOVW HOME _BLOCK+52, 24(ORB) > 1954 
06 00006 CF 1 € 10$: BBC #1, MOUNT OPTIONS+2, 118 > 1955 
18 «AB 00006 CF B MOVW PROTECTION, 24(ORB) : 1956 
5B 1 0 12 11$:  MOVL #1, STATUS : 19 8 
03 00006 CF a : 5 13 BBC ! F MOUNT_OPTIONS+1, 128 ; 19 
1 00006 CF DO OO21E 128: MOVL REAL_VCB, R1 > 1962 
: 50 00006 cr 1 6 EF i EXTZV H : , : ROUNT ,OPTIONS+6, RO 
te 6 00006 CF b8 0 MOVL REAL_WeB, RO : 1963 


<2 | 


m 2 
vou~0b2 1eStp-1986 92:45:26 DISKSYMSHASTER:CMOUNT -SACIMOUDK2.832:4°° (5) 


10 a0 7 00 5 OVL UCB, 16(RO) ; 
DD PUSHL @# + 1964 
DD F) PUSHL R : 
dD D PUSHL UCB ; 
0 G CF Fe F CALLS #3, START_ACP : 
G CF F ra CALLS #0, STORE-CONTEXT + 1969 
67 0006 CF E 49 BBS #2, MOUNT-OPTIONS*S, 14$ + 19 
0 00906 CF OD F MOVL  REAL_VCB, ~RO + 197 
1 —E Ao BI 4 CMPW 3S s«a14(R0), #1 : 
5¢ 1A 8 BGTRU 14$ : 
50 00006 CF »D A MOVL REAL vcB, RO + 1978 
7 0B A 6 € F BBS #4, T1(RO), 16$ : 
7 00006 CF 1 : BBC #1, MOUNT_OPTIONS+1, 16$ : 1979 
E 7 A CLRQ 0s = §P) : 1993 
7E 7C C CLRQ = (SP) : 
000' CF 9F $ PUSHAB P.AAF : 
000° cr 3 PUSHAB P. ; 
E 7C 0027 CLRQ. (SP F 
0000' ce 9F 0027; PUSHAB 19 STATUS : 
8 OD O0e7C PUSHL #56 ; 
00006 CF DD 0027 PUSHL CHANNEL F 
1A DD PUSHL # : 
000000006 0 ¢ FB CALLS #12, N19 : 
0 E BLBS § SYS.STATUS,~13$ + 1994 
0000" CF 0 00 MOVL § SYS"STATUS. 'O_STATUS : 
4A 0000 CF ; 93 13$: BLBS. _10_STATUS, : 1996 
00006 CF 04 8A 0029 BICB2 #47 CLEANUP_FLAGS+1 : 300 
0910 = &F 0000° CF B1 00290 CMP 10 STATUS, #2320 : 2010 
C 13 O02A4 BEQL $ ; 
50 ON00G CF D0 002A6 MOVL RFAL_vcB RO : 2013 
0B Ad 10 88 AB BISB2 # : 11(RO) : 
5B 00729038 8F D AF VL #7568024, STATUS > 2014 
A 11 Be 14$: BRB : 1959 
90006 cr 0 FB 15$: CALLS #0, STORE_CONTEXT > 2029 
000000006 9 0 F BD CALLS #0, LOCK_TODB : 2031 
. oa 90096 CF D C4 MOVL REAL v¢8 (UCB) : 2032 
8  A7 0108000: gr C CA BISL2 #17301512, 56(UCB) + 2034 
E D4 0020 CLRL = =(SP) : 2035 
57? DD 002d PUSHL U ; 
0000V cf 2 FB 00206 CALLS #2, SET_DATACHECK : 
000000006 60 Fe D CALLS #0. UNLOCK ; 2036 
OA G CF 4 € E2 16$: BBC #4. MOUNT OPTIONS, 17$ : 2039 
04 G CF 1 3 E BBC #1. FLEANOP FLAGS, 17$ ; 
A? 4 E BISB2 #4. 101(UCBY ; O% 
04 00006 CF 1 ; Fo 77$: BBS #. BOUNT OPTIONS+1, 18$ F 
A7 2 F BISB2 #2. 59(UCB) > 204 
00006 CF DD OO2FC 18$:  PUSHL REAL_VCB > 2049 
7 OD PUSHL U : 
00006 CF 2 FB CALLS #2, ENTER_LOGNAME ; 
000000006 F D INCL a@A#CTLS$GL_JOLUMES ; 2050 
DD PUSHL UCB : 2051 
00006 CF 5 Oe Oat Pete 53, SEND ERRLOG 
55 38 OAT 1 ; EF 00316 EXTZvV. @ if SHCUCB NOWRI TE ; 2059 
, , F006 PT thy BEANE Hho oct i 
6 98 4 1 2 €F g EXT2V #2. #1. {3(R0). MOUNTVER : 2061 
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ree 12-8 Sep =}382 94:13:32 DISKSVMSMASTER: CMOUNT. SRCJMOUDK2. B32" 2% (85 
A 1 3 EF EXTZV #3, #1, 83(RO), ERASE ; 
af 33 Ni 8} og ff 8 ; ENZV Hh #1, (RO); NOHIGHWATER : 3068 
69 B BEQL 26$ : 
000000006 00 0 FB D CALLS #0, LOCK_100B ; 
A OB OA 3A 4 MOVZBL 11(RVT), R10 ; 9 
3 44  A9 E 48 MOVAB 68(RVT), R + 207 
59 p 4C CLRL J : 
48 1 0034 BRB 5$ : 
50 FC A349 D 19$:  MOVL 7 ing RVUCB : 
04 ee SE OTE : gore 
38 = AO 03 § A BISB2 ae ATF. 9(R vite) : OB 
55 3B AO 1 EF — 20$:  EXTZV # (RVUCB), NOWRITE : 20 
1 34 AO 09 MOVL Strvuees vcB + 2085 
04 54 ; BLBC LOCK KED its ; 086 
0B AI 10 88 8 BISB2 #16, 11(VCB) + 208 
54 0B Al 01 04 EF oF 21$:  EXTZV #4, #1 1ieves , LOCKED : 2088 
04 6 €9 3 BLBC  MOUN TVER 22$ + 2090 
53. AT 04 88 0037 BISB2 #4, 8 (veg) : 2091 
50 53 Al OSE 0 7C 228 MOVAB 83(VCB), RO + 2092 
56 60 01 EF EXTZV #2 n. {R0), MOUNTVER ; 
$5 BB 00 eiec,  GaAst  303¢ 
52 60 01 EF 0038B 23$:  EXTZV * #1, (RO), ERASE : 096 
03 38 F BLaC NOMIGHUATER, *24$ : 2098 
58 60 01 04 EF 00396 24$:  EXTZV #4, #1, (RO), NOHIGHWATER + 2100 
1 59 A £3 0 98 25$:  AOBLEQ R16, J. 19 : 2070 
000000006 00 90 F OF CALLS #0, UNLOCK 10DB : 2103 
03 24 E Ms 26$: BLBS LOCKE E De ers. + 2106 
00006 CF 02 BA AC 27$:  BICB2 ref tT EANGP FLAGS#1 + 2107 
5c OA BG Bi 28$: INCW 92C(UCB) : 2115 
50 5B B4 MOVL § STATUS, RO : 2117 
4 00387 RET : 2119 
0000 00388 29$ «WORD Save nothing : 1751 
7E D4 003BA ¢LRL 0 =( SP) : 
5E pp BC PUSHL  $P : 
7E 04 AC D 0038 mova 4¢AP) SP) : 
0000v CF 03 FB O3¢ CALLS APT inner _HANDLER ; 
04 003¢ RET : 


:; Routine Size: 968 bytes, Routine Base: S$CODE$ + 0958 
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! The read and write check attributes to be set are simply the inclusive 
: OR of the read and write check volume attributes and the command options. 


er 


uw 


BBLOCK CUCBCUCBSL_DEVCHAR), DEVSV_RCK] = .MOUNT_OPTIONSCOPT_READCHECK) 
OR (IF .HOME BLOCK “1p 8 
ghee ghOne BLOCK HM2$V_READCHECK] 


BBLOCK CUCBCUCBSL_DEVCHAR), DEVSV_WCK] = .MOUNT_OPTIONSCOPT_WRITECHECK) 
OR (IF .HOME BLOCK side 9 
THEN ,HOME_BLOCKLHM2$V_WRITCHECK) 


SIFSIISIISEEE 


SOWOONOULS WOO 


; } ge } 9 } GLOBAL ROUTINE SET_DATACHECK (UCB, HOME_BLOCK) : NOVALUE = 
3s 1 a9 1 § 1 !+¢ 

3; 159 1 1! 

3 ! 28 ! : } FUNCTIONAL DESCRIPTION: 

; 1600 1 § 7 3 This routine sets the read and write check bits in the indicated UCB 
: 190) : f : according to the command switches and the volume characteristics. 
; 1808 129 1! 

3; 1604 130 1 ! CALLING SEQUENCE: 

: 1808 : 1 : SET_DATACHECK (ARG1, ARG2) 

: 160 1 § 1 ! INPUT PARAMETERS: 

3; 1608 134 1! ARG2: address of home block or 0 

: 1609 1s) 2 Y 

3; 1610 1 $ 1 ! IMPLICIT INPUTS: 

3 oF } i ! MOUNT_OPTIONS: datacheck qualifier bits 

HY 181g 139 1 ! OUTPUT PARAMETERS: 

3 1614 140 1! ARG1: address of UCB 

3 1615 141 1! 

3 1616 126 1 ! IMPLICIT OUTPUTS: 

3; 1617 143 1! NONE 

: 1618 144 1! 

3 1619 145 1 ! ROUTINE VALUE: 

: 1620 146 1! NONE 

3; 1621 147 1! 

3: 16 ¢ 148 1°! SIDE EFFECTS: 

3; 16 149 1! NONE 

> 1624 150 1! 

3: 1625 151 1 !<- 

3: 1626 136 1 

; lose 15 § BEGIN 

3 1628 154 

3 1o¢8 $12? 2 MAP 

: 1630 156 ucB : REF BBLOCK, ' uCcB arg 
3 1631 2157 HOME _BLOCK : REF BBLOCK; ! home block arg 
3 1636 158 

3 163 159 EXTERNAL 

; 13 160 MOUNT_OPTIONS : BITVECTOR; ! parser option flags 
3; 16 196 

3; 16 16 

3; 16 164 

3; 16 165 

3 1 166 

3 1 167 

ss 168 

3: 1 16 

: 1 170 

s 1 171 

3 1 HA 

3 1 17 

2 ¥ 174 

31 175 

3 1 176 
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! end of routine SET_DATACHECK 


T_DATACHECK, Save R2 
+ RO 


» #1, 42(R1), RI 


1, MOUNT_OPTIONS+4, R2 
#1, 59(RO) 
R1 


» #1, 42(R1), R1 


, #1, MOUNT_OPTIONS+4, R2 
; RS #1, 59(RO) 


as 
i | 


ow 
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Vn 


WN —OVDONOUNS 


SESSES 
CNAME WN "OO OONOULSWN—O0O 


Wwrn—o 
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OE —OOONOAUL WN “QO VONOULSWN "OOD 
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12-888-13 4 94:12:32 DISKSVMSMAS TER: CMOUNT . SRCIMOUDK2.B32: 4" (7) v0 
ROUTINE KERNEL_HANDLER (SIGNAL, MECHANISM) : NOVALUE = 


144 
' 
FUNCTIONAL DESCRIPTION: 
This routine is the condition handler for all of the kernel mode 


code. It undoes any damage done so far and returns the error 
status to the user mode caller. 


CALLING SEQUENCE: 
KERNEL_HANDLER (ARG1, ARG2) 

INPUT PARAMETERS: 
ARG1: address of signal vector 
ARG2: address of mechanism vector 


IMPLICIT INPUTS: 
global pointers to blocks allocated 
OUTPUT PARAMETERS: 
NONE 
IMPLICIT OUTPUTS: 
NONE 
ROUTINE VALUE: 
NONE 


SIDE EFFECTS: 
stack unwound, allocations undone 


et et eet ed et 


SIGNAL : REF BBLOCK, ! signal vector 
MECHANISM : REF BBLOCK; ! mechanism vector 

LOCAL 

: REF BBLOCK, ! pointer to scan system lists 

uCcB : REF BBLOCK; ! UCB being mounted 

EXTERNAL 
MOUNT OPTIONS : BITVECTOR, ' cormand parser options 
CLEANOP_FLAGS : BITVECTOR, ' cleanup action flags 
C ° ' channel assigned to Sevice 
MAILBOX CHANNEL, ! channel number of ACP mailbox 
REAL_VCB REF BBLOCK, ! address of VCB allocated 
REAL_VCA REF BBLOCK, =! address of volume cache allocated 
REAL_FCB REF BBLOCK, ! address of A os Loretes 
REAL_wWCB REF BBLOCK, ! address of window allocated 
REAL_RVT REF SBLOCK, ! address of disk RVT 
REAL _AQB REF BBLOCK, ! address of AQB allocated 
MTL_ENTRY REF BBLOCK, ! address of mounted volume list entry 


3 
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; 1711 SMTL_ENTRY : REF BBLOCK, ! address of volume set MTL 
: : REF BBLOCK ADDRESSING_MODE (ABSOLUTE); 
: 131 : {ocSct‘aasuist es emeies ! system AQB list 
; 1714 
: 1715 4 EXTERNAL ROUTINE 
: ° t UCB address of channel 
; 1513 4 COCR TOpBeeee ADDRESSING_MODE YGENERAL) , } interlock system 1/0 database 
3 171 4 UNLOCK _I0DB ADDRESSING_MODE (GENERAL), ! unlock system I/0 database 
; 1519 44 DEALLOCATE_MEM; eallocate system dynamic memory 
: 1720 45 
; 3 ; ¢F ; Deallocate whatever control blocks exist to wherever they came from. 
3 iF ! 
; 3 ‘ ; IF _ .SIGNALCCHFSL_SIG_NAME] NEQ SS$_UNWIND 
; 17 ? 26 BEGIN 
; «SIGNALCCHFSL_SIG_ARGS] NEQ 3 
: Mi 3 22 THEN Bue CHECK CONXSTGNAL, FATAL, ‘Unexpected signal in MOUNT’); 
; : 7 ! If there is a mailbox in existence, deassign its channel, thereby 
; 7 g 38 i deleting the mailbox. 
: 3 3 $1 . . CLEANUP_FLAGSCCLF _DEASSMBX) 
; iy ; e§ SDASSGN (CHAN = .MAILBOX_CHANNEL); 
: 1739 
3 1740 6g H Clean up the UCB. 
: 1528 es UCB = GET CHANNELUCB (CHANNEL) ; 
: 130 % BBL Ck CucB EUCBSL _DEVCHARI, DEVSV_MNT) = 0; 
> 1746 71 UCBCUCBSL_VCB) = 0; 
3 1747 Le: UNLOCK_I0BB (); 
: 1348 74 ! If we have created an AQB but no ACP, we must remove the AQB from the 
3 1730 ie } system List. 
: beg i IF CLEANUP_FLAGSCCLF_DELAGB] 
Te BEBE ee 0 
F 1989 2 4 Ses te AQBLIST; 
3 1738 4 ra EQL .REAL_AQB 
; 1780 5 ‘ gg OCS _AUBL IST = ,REAL_AQBCAQBS$L_LINK] 
3; 1761 L 
. N 
: 1788 raat -PCAQBSL LINK] EQL .REAL_AQB 
: 1764 3 bp P= PEACG C_LINK); 
3; 1765 ? 4 pear enaiee = ,REAL_AQBCAQBSL_LINK]; 
: 158 2 4 DEALLOCATE_MEM (.REAL_AQB, 0); 


: 


? UNLOCK_I10DB (); 

? 2 END; 
771 ! If we have hooked up to an RVT, undo it. Note that this must be done under 
ak i interlock since others may be (ook ng at the same RVT at the same time. 
77 9 ! if the RVT is not d papper ng entirely, remove knowledge of this volume 
wre rom it by zeroing the UCB entry in its List of UCB's. 
76 1 
77 4 IF .REAL_RVT NEQ 0 
£78 THEN 
77 BEGIN 
7 5 LOCK.1008 0; 
781 REAL-RVTCRVT$W_REFC] = ,REAL_RVTCRVTSW_REFC) = 1; 
u : de IF cREAL_RVICROT W_REFC) EQL~0 
78 9 DEALLOCATE_MEM (.REAL_RVT, 0) 
ree VECTOR CREAL_RVT CRVTSL_UCBLSTJ, .REAL_VCB CVCBSW_RVNJ-1) = 0; 
788 K : 
A+ weno _I10DB () 
7 

THEN DEACLOCATE_MEM (.REAL_VCB, 0); 

IF .REAL_VCA NEQ 0 

THEN DEACLOCATE_MEM (.REAL_VCA, 0); 


IF .REAL_FCB NEQ 0 
THEN DEACLOCATE_MEM (.REAL_FCB, 0); 


IF .REAL_WCB NEQ 0 
THEN DEACLOCATE_MEM (.REAL_WCB, 0); 


IF .MTL_ENTRY NEQ 0 
THEN DEALLOCATE_MEM (.MTL_ENTRY, 1); 


IF .SMTL_ENTRY NEQ 0 
THEN DEACLOCATE_MEM (.SMTL_ENTRY, 1); 


' Return the condition code in RO. 


BEteErrerereerr 


saaeees 
WN 


— a ot 
ue 


MECHANISMCCHFSL_MCH_SAVRO) = .SIGNALCCHFSL_SIG_NAME); 
SUNWIND (); 


Be Se Se Ge Ge Se Se Se Se Ge Se Ge Ge Fe Ge Ge Fe Ge Ge Fe Se Ge Ss Ge Se GF Ss Se Se Se FF Ss SF Ss Se Se See Se Se Sees este Se Se Setsse 
ek ka a ea a ec a em 8 a ad ad ad ad a od = od a = = = 2 = 2 8 2 a 2 


4 
4 
4 
4 
& 
4 
& E 
4 
4 
4 
END 
IF _ .REAL_VCB NEQ 0 


' 
END; 
END; ! end of routine KERNEL_HANDLER 


-EXTRN MAILBOX_CHANNEL 
EXTRN REAL_RVT REAL _AQB 

XTRN ioc GL_AGBLIST> DEALLOCATE_MEM 
TRN BUGS URXSIGNAL. SYSSDASSGN 
XTRN SYSSONWIND 
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put 
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007€ 00000 KERNEL HANDLER: 
WORD 


. Save R2,R3,R4,R5,R6 3; 2179 
6 G OF 9 MOVAB aM#l10C$GL Ade ist. 6 : 
6 0 MOVAB UNLOCK I00B, R : 
G MOVAB LOCK I0DB, R4 : 
G6 CF 1 MOVAB DEALCOCATE_MEM, R3 : 
4 Ac D 1 MOVL SIGNAL, R + 2250 
00000920 BF 4 AO D CMPL 4 (RO), #2336 ; 
01 } 8 BNEG 1$ : 
03 a0 D4 1$: CMPL (RO), #3 + 2254 
4 BEQL $ : 
Fete BUGW + 2255 
90 O* «WORD  <BUG$_UNXSIGNAL !4> : 
0B 00006 CF 03 €1 28: BBC #3, CCEANUP FLAGS, 3$ F 3 61 
00006 cr 0D A PUSHL MAILBOX CHANNEL + 2263 
000000006 00 1 FB : CALLS #1, SYSSDASSGN : 
00006 CF DD 00045 3$ PUSHL CHANNEL + 2268 
00006 F i FB 49 CALLS fl. GET .CHANNELUCE : 
64 00 FB 1 CALLS #0, ‘ CK_100B + 2269 
3A A BA 0 4 BICB2# (UtB) : 2270 
34 A2 04 00058 CLRL.  S52¢uce) + 2271 
65 0 FB 0058 CALLS #0, UNLOCK _100B : 227 
31 00006 CF E1 0005€ BBC #2. CLEANUP FLAGS, 7$ > 207 
64 0 Fe 0064 CALLS #0, LOCK 1058 3 2281 
27 = pooog CF BO bodGA ROVE LOesGL AUBLIST. y : $58 
51 £6 D1 O06F CMPL oP, RT - : 
06 if 0072 BNEG 4s 4$ F 
66 10 Al DO 00074 MOVL 16(R1), IOCSGL_AQBLIST + 2285 
11 11 00078 BRB 6$ ; 
51 10 A0 D4 or 4$ cHPL 16(P), R1 ; 2288 
50 10 Ao 3 5 MOVL 16(P), P : 2289 
F4 11 000 BRB 4$ : 
10 ad 10 Al DO 00086 S$: MOVL  16(R1), 16(P) F 3290 
7E D4 00088 6S: CLRL = = (SP) + 2292 
51 DD 9 PUSHL 1 ; 
63 98 FB F CALLS ae, DEALLOCATE_MEM : 
65 F 32 CALLS #0, UNLOCK_ : 3293 
00006 CF D 95 7$: TSTL REA ; 2302 
6 1 99 BEQL 108 : 
4 F CALLS #0, LOCK_1008 F 2305 
2 00906 CF D Hi MOVL REAL RVT; R2 ; 
4 Ag E A DECW  4(ReY : 
a ae ih 74 wR, ees) : 3305 
$ DD OOOAA PUSHL : 
63 F AC CALLS #2, DEALLOCATE_MEM : 
Dp 1 AF ARB 3 
00006 CF p 1 8$: ROV REAL vCB, RO : 2311 
F A ¢ B6 MOVZWL 1 RO) Ro ; 
5 a A230 FB OO0BE. 9 CR SRA Bee 1008 : 231 
0 00006 CF 08 ef 185: MOVL REAL_VCB, Rnd : ste 
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